visual basic Alguns Códigos | Úteis VB

[Incompetech 566]

• Verificar Internet :
  

 

If My.Computer.Network.IsAvailable = True Then

Try

If My.Computer.Network.Ping("

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

", 10) Then

MsgBox("Acesso a internet!", MsgBoxStyle.Information)

End If

Catch ex As Exception

MsgBox("Nao ha acesso a internet", MsgBoxStyle.Critical)

End Try

End If

End Function

 

 

• Fechar Aplicativo Com Mensagen:
  

 

If MsgBox("Deseja fechar?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then

Me.Close()

End If

 

 

• VERIFICANDO CAPS LOCK:
  

 

 

If My.Computer.Keyboard.CapsLock = True Then

MsgBox("Caps Lock Está Ativada!")

Else

MsgBox("Caps Lock Está Desativada!")

End If

 

 

• FORM TRANSPARENTE AO MOVER :
  

 

Private Const WM_NCLBUTTONDOWN As Long = &HA1

Private Const WM_NCLBUTTONUP As Long = &HA0

Private Const WM_MOVING As Long = &H216

Private Const WM_SIZE As Long = &H5

Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)

Static LButtonDown As Boolean

If CLng(m.Msg) = WM_NCLBUTTONDOWN Then

LButtonDown = True

ElseIf CLng(m.Msg) = WM_NCLBUTTONUP Then

LButtonDown = False

End If

If LButtonDown Then

If CLng(m.Msg) = WM_MOVING Then

If Me.Opacity <> 0.9 Then Me.Opacity = 0.5

ElseIf CLng(m.Msg) = WM_SIZE Then

If Me.Opacity <> 0.6 Then Me.Opacity = 0.6

End If

ElseIf Not LButtonDown Then

If Me.Opacity <> 1.0 Then Me.Opacity = 1.0

End If

MyBase.DefWndProc(m)

 

 

• Baixar arquivos para o pc:
  

 

My.Computer.Network.DownloadFile("Aqui o link", "Aqui o nome como será baixado")

 

 

• Abrir Pagina Na WEB:
  

 

Process.Start("coloque o link aqui")

 

 

• Verificar se foi aberto como adm:
  

 

If My.User.IsInRole(ApplicationServices.BuiltInRole.A dministrator) Then

MsgBox("O Programa foi aberto como administrador!!!")

Else

MsgBox("O Programa deve ser aberto como Administrador!! o programa sera fechado!")

Me.Close()

End If

 

 

• MINIMIZAR FORM :
  

 

Me.WindowState = FormWindowState.Minimized

 

 

 

• MAXIMIZAR FORM:
  

 

Me.WindowState = FormWindowState.Maximized

 

• Colocar Delay :
  

 

Threading.Thread.Sleep(5000)

 

 

• Mostrar Senha:
  

 

 

If CheckBox2.Checked Then

TextBox2.PasswordChar = ""

Else

TextBox2.PasswordChar = "*"

End If

My.Settings.check2 = CheckBox2.Checked

End Sub

 

 

• BLOQUEAR TEXTBOX :
  

 

 

TextBox1.Enabled = false

 

 

• ABRIR IMAGEM :
  

 

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileNames.Length > 0 Then

 

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

 

 

• mostrar 2 mensagem no button:
  

 

 

if button1.text = "" then

'timer1.stop

 

 

button1.text = ""

'timer1.start

 

 

• 'Desliga o Computador
  

System.Diagnostics.Process.Start("shutdown", "-s -t 00")

 

'Reinicia o Computador

System.Diagnostics.Process.Start("shutdown", "-r -t 00")

 

'Faz Logout no Computador

System.Diagnostics.Process.Start("shutdown", "-l -t 00")

 

 

• ABRIR FORM DEPOIS DO PROCESSO:
  

 

TIMER1

Enable: True

Interval: 100

 

If Process.GetProcessesByName("Pointblank").Length > 0 Then

Form2.Show()

End If

['Dionísio 4.370]

Não acho muito util os codigos para minimizar etc,sendo que na propria form podemos editar isso alterando de true para false.

 

Mas é o básico,da pra criar algumas coisas simples. =D

 

Ah,e esses códigos tem que ter os créditos do gabrielhcc =D

[Incompetech 566]

ionísio' date=' post: 9481891, member: 4648551"']Não acho muito util os codigos para minimizar etc,sendo que na propria form podemos editar isso alterando de true para false.

 

Mas é o básico,da pra criar algumas coisas simples. =D

 

Ah,e esses códigos tem que ter os créditos do gabrielhcc =D

 

Bom o código para minimizar pode ser utilizado devido a alguns temas que retiram as opções de Minimizar / Fechar / Maximizar

Enfim, peguei isto de um site que vi na internet então não vejo motivos para dar créditos a ele

[bieljtvz 269]

ionísio' date=' post: 9481891, member: 4648551"']

Ah,e esses códigos tem que ter os créditos do gabrielhcc =D

Esses códigos não precisam ter créditos, o próprio Ide ja lhe da esses códigos simples para usar, se fosse algo mais complexo ai sim !