InícioFAQ - VB.NET
Trojans :: Programação :: Delphi / VB
Página 1 de 1
FAQ - VB.NET
por Convidado Ter Dez 17, 2013 9:13 am
Bom galera, estarei postando alguns códigos/soluções de dúvidas, ai da galera, sobre VB.
APAGANDO ARQUIVOS
ARRASTANDO PANEL DENTRO DE UMA FORM
CHECKBOX PARA TIMER
O QUE SIGNIFICA IF, THEN, ELSE ?
FECHAR APLICATIVO
O QUE É VARIÁVEL ?
PARA QUE SERVE " () " ?
PARA QUE SERVE " DIM " ?
O QUE É POINTER ?
QUEBRA DE LINHA NO MESSAGE BOX
SISTEMA ANTI-LEECH
SISTEMA DE LOGIN
SLEEP
TIPOS DE DADOS: String, Int, Boolean
EXEMPLO DE UMA VARIÁVEL
VERIFICANDO CAPS LOCK
RESUMINDO ERRO
REINICIAR APLICAÇÃO
APAGANDO ARQUIVOS
- Código:
Dim fso
fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\WINDOWS\Temp\*.*")
C:\WINDOWS\Temp\*.* = EXEMPLO DE DIRETÓRIO
Se for apagar um arquivo específico é "NOME"+EXTENSSÃO Ex: google.exe
*.* = todas as extensões
se eu por *.* no final, ele apaga todos os arquivos
ARRASTANDO PANEL DENTRO DE UMA FORM
- Código:
Public Class Form1
Dim panloc As New Point(0, 0)
Dim curloc As New Point(0, 0)
Private Sub setpositions()
panloc = Panel1.Location
curloc = System.Windows.Forms.Cursor.Position
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = "1"
setpositions()
End Sub
Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
Timer1.Enabled = True
Timer1.Start()
setpositions()
End Sub
Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
Timer1.Stop()
setpositions()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Panel1.Location = panloc - curloc + System.Windows.Forms.Cursor.Position
setpositions()
End Sub
End Class
CHECKBOX PARA TIMER
- Código:
If CheckBox1.Checked = True Then
Timer1.Start()
Else
Timer1.Stop()
End If
O QUE SIGNIFICA IF, THEN, ELSE ?
FECHAR APLICATIVO
- Código:
Close()
O QUE É VARIÁVEL ?
- Código:
É uma forma de armazenar dados para usar depois na sua aplicação.
Usasse raramente, mas sempre que for criar um programa de grande utilidade, sempre vai ter que declarar variáveis.
Em HACKS / TRAINERS é necessário adicioná-la.
Mas para declarar variáveis é muito complexo.
PARA QUE SERVE " () " ?
- Código:
Serve para executar um comando, por exemplo: Close()
PARA QUE SERVE " DIM " ?
- Código:
Dim serve para declarar uma variável.
O QUE É POINTER ?
- Código:
Pointer é um ponteiro que marca o address para ele não mudar.
QUEBRA DE LINHA NO MESSAGE BOX
- Código:
MessageBox.Show("Linha 1" + vbCrLf + "Linha 2")
SISTEMA ANTI-LEECH
- Código:
If TextBox1.Text = "exemplo" Then
Form2.Show()
Else
MsgBox("Senha Incorreta - Tente Novamente")
SISTEMA DE LOGIN
- Código:
If TextBox1.Text = "exemplo" Then
MsgBox ("Senha correta")
Else
MsgBox ("Senha incorreta")
End If
SLEEP
- Código:
Public Class Form1
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Sleep(1000)
End Sub
End Class
TIPOS DE DADOS: String, Int, Boolean
- Código:
String é um tipo de dado que se compõe em caracteres.
Int é um tipo de dado inteiro, para números inteiros.
Boolean é um tipo de dado lógico que só tem 2 parâmetros, FALSE, TRUE. É um valor booleano.
EXEMPLO DE UMA VARIÁVEL
- Código:
Dim apresentacao As String = "Olá "
Dim nome As String = TextBox1.Text
Dim total As String = apresentacao + nome
MsgBox(total)
VERIFICANDO CAPS LOCK
- Código:
If My.Computer.Keyboard.CapsLock = True Then
MsgBox("Caps Lock Está Ativada!")
Else
MsgBox("Caps Lock Está Desativada!")
End If
RESUMINDO ERRO
- Código:
On Error Resume Next
REINICIAR APLICAÇÃO
- Código:
Application.Restart()
Convidado- Convidado
Convidado- Convidado
Trojans :: Programação :: Delphi / VB
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos