Com a finalidade de facilitar códigos-fonte para os programadores do fórum, crio este post, onde iremos colocando unicamente códigos-fonte em Visual Basic 6.<br />Se alguém tiver algum, simplesmente posta.<br />Na medida do possível, caso o código seja um pouco confuso ou longo, coloque uma breve descrição do que o código faz e lembre-se de editar o título com o nome do code.<br /><br />Fontes e créditos: Forosdelweb - Recursosvisualbasic<br /><br />Saudações a todos. <br /><br />Copy Paste de um post do antrax em um fórum irmão, espero que ele não se importe :P
Slore ·
Incluir este code no programa para que ele seja executado uma única vez<br /><br />Código: vb
Private Sub Form_Load()<br />Dim Ya_Existe As Integer<br />Ya_Existe = App.PrevInstance<br />If Ya_Existe <> 0 Then<br />MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"<br />End<br />End If<br />End Sub
Slore ·
Como usar o Random em um programa<br /><br />Código:<br /> Código: text
Private Sub Form_Load()<br /> Dim Num As Double<br /> Randomize<br /> Num = Rnd<br /> MsgBox Num<br />End Sub
Slore ·
Saber de qual diretório minha aplicação está sendo executada<br />Código:<br /> Código: text
Private Sub Form_Load()<br /> Dim Directorio as String<br /> ChDir App.Path<br /> ChDrive App.Path<br /> Directorio = App.Path<br /> If Len(Directorio) > 3 Then<br /> Directorio = Directorio & "\"<br /> End If<br /> End Sub
Slore ·
Como verificar se um arquivo existe<br />Código:<br />Código: text
Public Sub VerificarFichero(sNombreFichero As String)<br />On Error Resume Next<br />Open sNombreFichero For Input As #1<br />If Err Then<br />MsgBox ("El fichero " & sNombreFichero & " no existe.")<br />Exit Sub<br />End If<br />Close #1<br />End Sub
<br /><br /><br />em um botão:<br /><br />VerificarFichero "c:\prueba.txt"<br /><br />Código:<br />Código: text
Dim Archivo As String<br />Archivo = "C:\MiTexto.txt"<br />If Dir(Archivo, vbArchive) = "" Then<br />MsgBox "El Fichero No Existe"<br />End If
Slore ·
Como inserir apenas números em um campo de texto<br />Código:<br /> Código: text
If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 44 Or KeyAscii > 44)) Then<br /> If (KeyAscii <> 8) Then KeyAscii = 0<br /> End If
Slore ·
Como inverter um texto<br />Vamos imaginar que, por qualquer motivo, desejamos inverter a ordem dos caracteres de um texto. Imaginemos que temos o texto em uma variável chamada Texto e armazenamos o conteúdo da string texto invertido na variável Otxet. Por exemplo: se tivermos o texto Casa, obteremos asaC.<br /><br />Para isso, deveríamos escrever o seguinte código:<br /><br />Código:<br /> <br />Código: text
For Contador = Len(Texto) To 1 Step -1<br /><br />Otxet = Otxet & Mid (Texto, Contador, 1) <br />Next Contador
Slore ·
Como passar de um texto para outro usando Enter<br />Inserir três TextBox e escrever o seguinte código:<br /><br />Código:<br />Código: text
Private Sub Text1_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />SendKeys "{tab}"<br />KeyAscii = 0<br />End If<br />End Sub<br />Private Sub Text2_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />SendKeys "{tab}"<br />KeyAscii = 0<br />End If<br />End Sub<br />Private Sub Text3_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />SendKeys "{tab}"<br />KeyAscii = 0<br />End If<br />End Sub
<br /><br /><br />outra forma:<br />Inserir três TextBox, mudar a propriedade KeyPreview do formulário para True e escrever o seguinte código:<br /><br />Código:<br />Código: text
Private Sub Form_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />SendKeys "{tab}"<br />KeyAscii = 0<br />End If<br />End Sub
Slore ·
Usar IF THEN ELSE ENDIF em uma mesma linha<br />Inserir um CommandButton e um TextBox e escrever o seguinte código:<br /><br />Código:<br />Private Sub Command1_Click()<br />Dim I As Integer<br />Dim A As String<br />I = 3<br />A = IIf(I <> 1, "True", "False")<br />Text1.Text = A<br />End Sub<br /><br /><br />Uma variante do mesmo código:<br />Inserir um CommandButton e um TextBox e escrever o seguinte código:<br /><br />Código:<br /> Private Sub Command1_Click()<br /> Dim I As Integer<br /> Dim A As String<br /> I = 3<br />If I <> 1 Then A = "True" Else A = "False"<br /> Text1.Text = A<br /> End Sub
Slore ·
Converter um texto para maiúsculas ou minúsculas<br />Código:<br /> Criar um formulário e colocar um TextBox. Escrever:<br />Private Sub Text1_Change()<br />Dim I As Integer<br />Text1.Text = UCase(Text1.Text)<br />I = Len(Text1.Text)<br />Text1.SelStart = I<br />End Sub
Slore ·
Desligar o computador, reiniciar o Windows, reiniciar o Sistema<br />Adicionar três botões a um formulário e escrever o seguinte no código do formulário:<br /><br />Código:<br /> Private Declare Function ExitWindowsEx& Lib "user32" (ByVal<br />uFlags&, ByVal dwReserved&)<br />Private Sub Command1_Click()<br />Dim i as integer<br />i = ExitWindowsEx(1, 0&) 'Apaga el equipo<br />End Sub<br />Private Sub Command2_Click()<br />Dim i as integer<br />i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario<br />End Sub<br />Private Sub Command3_Click()<br />Dim i as integer<br />i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema<br />End Sub<br />
