PiGmEu

cara.. tipo eu acho q não compensa hj em dia tirar MCSD de VB.. eu aconselharia você a tirar o MCSD.net (um dia eu ainda tiro ehehe)

Tem sim.. Vai no Adicionar e Remover Componentes e Adiciona a DLL Microsoft Windows Common Controls 6.0 na sua toolbox vai aparecer a ferramenta ListView abaixo vai os Tut de ListView: http://www.macoratti.net/lstview2.htm http://www.macoratti.net/lstview3.htm Abracos

alguém??

Da uma olhada nesse tut sobre Dataset.. acho q vai resolver seu problema http://www.macoratti.net/vbn_dts1.htm Abracos

Show esse Tut Brother William hihihi tem o site tb.. http://www.connectionstrings.com la ele t da todos os tipos de conexoes tanto pra SQL quanto pra Access, oracle etc.

Meu apelido desde os 10 anos sou pequeno :'(

Eae galera tudo bem com vocês? bom.. estou eu aki d novo precisando de mais uma ajudinha de vocês.. Criei um ASPX q chama um relatorio do crystal.. ate ai beleza.. ele roda normal no localhost.. mas quando eu coloco no servidor e chamo o aspx, ele da o seguinte erro: Cannot find KeycodeV2.dll, or invalid keycode. Bom.. tava vendo uns foruns e tals.. tentei fazer tudo q já falaram, mas nada ainda funcionou, já tentei registrar DLL, criar o pacote de instalacao e tals.. sera q alguém teria mais alguma solução?? Agradeço desde já! Obrigado!

Bom Apostila eu já não sei.. mas tem ese Fonte aki no site do Tio Macoratti... da uma olhada nele e tenta pegar o q mais ou menos precisa pra ter um controle e tals... http://www.macoratti.net/vbp21.htm Abracos!

Eae Luiz.. BOm pelo que eu entendi vou colocar um jeito aki ve se ajuda. Dim conexao as new ADODB.Connection Dim sql as String cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =\\bd1.mdb;" sql = "Insert Into tabela1 (xxxx)values('" & txtXXX.text & "')" cnn.execute sql sql = "Insert Into tabela2 (yyyy)values('" & txtXXXX.text & "')" cnn.execute sql Abracos

Eae galera... td certinho?? Bom.. to matutando aki um pouco e ta meio cruel eheh seguinte.. tenho um ASPX q dentro dele chama um Relatorio(Crystal Report), mas eu consegui criar todos os botoes necessarios e tals.. mas eu não estou conseguindo criar o botao de impressao... alguém sera poderia me dizer como eu posso fazer ? : ) vlw a atencao galera! =) Abracos!

cara.. eu sei fazer so de .WAV abaixo vai o codigo Private Const SND_APPLICATION = &H80 Private Const SND_ALIAS = &H10000 Private Const SND_ALIAS_ID = &H110000 Private Const SND_ASYNC = &H1 Private Const SND_FILENAME = &H20000 Private Const SND_LOOP = &H8 Private Const SND_MEMORY = &H4 Private Const SND_NODEFAULT = &H2 Private Const SND_NOSTOP = &H10 Private Const SND_NOWAIT = &H2000 Private Const SND_PURGE = &H40 Private Const SND_RESOURCE = &H40004 Private Const SND_SYNC = &H0 Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Sub Form_Load() 'Um teste de SOM PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC End Sub

Num tendi.. ihhi você queria um TextBox que aceitasse + 1 uma linha era so isso?? eheh eu tinha entendido q você queria pular de linha em linha usando código ihhihi

cara.. tipo não é bem o q você ta precisando e tals.. mas é como se diz "um Format" no campo text, eu achei esse fonte numas tralhas q eu tinha aki.. mas se eu não me engano funciona legal.. da uma tentada ae... PS.. concerteza alguém vai ter um codigo mais simplificado do q esse ehehhe o q vale é a intencao.. ihhi Function verificaTel(tamanho As Integer, telefone As String) As String Dim strTelefone As String Dim strResult As String Dim strCharacter As String strTelefone = Trim(telefone) X = 1 strResult = "" Do While X <> tamanho + 1 strCharacter = Mid(strTelefone, X, 1) If strCharacter = "-" Then verificaTel = telefone Exit Function End If X = X + 1 Loop X = 1 Do While X <> tamanho + 1 strCharacter = Mid(strTelefone, X, 1) If Len(strTelefone) = 8 Then If X = 5 And Not strCharacter = "-" Then strResult = strResult & "-" & strCharacter Else strResult = strResult & strCharacter End If Else If X = 4 And Not strCharacter = "-" Then strResult = strResult & "-" & strCharacter Else strResult = strResult & strCharacter End If End If X = X + 1 Loop verificaTel = strResult End Function no LostFocos do Text você coloca esse codigo: txtTelefone.text = verificaTel(Len(txtTelefone.text), txtTelefone.text.Text) =)

Oi Deb!.. tipo não é bem assim que eu kro não... eu kro criar uma nova caixa de texto, não tem numero exato entende? =) vlw pela Ajuda Deb! =)

Eae Galerinha bele! Tipo estou quebrando a cuca aki.. o q eu gostaria é o seguinte, vou dar um exemplo... Tenho o meu Form em vb.net c/ 1 button ate ai Ok. o que eu queria saber se dava é o seguinte: a cada vez q eu clicasse nesse meu button, ele automatimente me criasse um TextBox. Teria como fazer isso? Vlw pela ajuda galera!

A chamada this.style.visibility='hidden' é apenas para o próprio botão "Imprimir" não sair na impressão. É isso aí!!! ahh beleza.. =) Brigadao Gusmão Andre!

AE Brothers beleza? Gente me tirem uma duvida, é a seguinte: Eu criei um page em asp.net e tals.. até ai no problem.. mas o q eu queria fazer.. criar um button que imprimisse esta pagina. alguém saberia como fazer? vlw galera! =)

no load do form coloque isso Me.BorderStyle = 0 Me.WindowState = vbMaximized

Brother. eu acho que você postou em lugar errado

Se for o q eu estiver pensando (você digita o texto em uma combo e ele vai buscando os valores) abaixo vai o codigo , esse já ta mastigado e quase engolido! ehehhehehe mas da uma lida nele, caso não for o q você quer, já da pra ter uma nocao Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim CB As Long Dim FindString As String Const CB_ERR = (-1) Const CB_FINDSTRING = &H14C If KeyAscii < 32 Or KeyAscii > 127 Then Exit Sub If Combo1.SelLength = 0 Then FindString = Combo1.Text & Chr$(KeyAscii) Else FindString = Left$(Combo1.Text, Combo1.SelStart) & Chr$(KeyAscii) End If CB = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal FindString) If CB <> CB_ERR Then Combo1.ListIndex = CB Combo1.SelStart = Len(FindString) Combo1.SelLength = Len(Combo1.Text) - Combo1.SelStart End If KeyAscii = 0 End Sub Abaixo vai uma API, voce coloca ele num modulo: #If Win32 Then Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long #Else Declare Function SendMessage Lib "User" _ (ByVal hwnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, lParam As Any) As Long #End If Abracos!

Olá Deborah. Pegue o CD1 do VStudio 6, e rode o setup... na hora q ele perguntar o q fazer, você seleciona a parde te Adicionar / Remover Nisso você vai em tools e seleciona a Opcao Package and Deployment Wizard. Se eu não me engano é esse o processo.. qualquer coisa posta ae d novo sua duvida!

humm.. isso eu já não sei :'(

Olá HWNext, Tipo eu nunca tentei fazer isso, eu apenas consigo trocar uma letra por outra, ex. se você digita A ele troca pra T, e assim vai com o codigo abaixo: Private Sub Text1_KeyPress(KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(Char) If KeyAscii = Asc("a") Then KeyAscii = Asc("t") End Sub Bom.. agora pra trocar para uma palavra eu já não sei , mas daqui a pouco o Willian ou alguém entra e concerteza eles vao poder t ajudar!

Eae Brother.. você pode ta usando o Winsock para fazer isso http://www.macoratti.net/winsock.htm da um olhada nesse link ai em cima q ensina como usa-lo e tals. ai qualquer duvida a mais posta ae pra galera ajudar!