Ajustar o tamanho dos objetos quando muda o tamanho do formulário

Ajustar o tamanho dos objetos quando muda o tamanho do formulário Para ajustar o tamanho de objetos quando se redimensiona um form em tempo de execução, utilize o evento Form_Resize (redimensionar tamanho), por exemplo: Private Sub Form_Resize() Text1.Width = Form1.Width / 2 Text1.Left = Form1.Width / 4 Text1.Top = Form1.Height / 3 End Sub

Continuar lendo »

Arredondar um número para o valor múltiplo de 5 mais próximo

Dicas de Visual Basic

Arredondar um número para o valor múltiplo de 5 mais próximo Nesta dica de Visual Basic do Web Mundi.com, aprenderemos como arredondar um número para o valor múltiplo de 5 mais próximo. Para isto, basta utilizar a seguinte função:

  Obrigado Espero que esta dica tenha sido útil e tenha lhe ajudado a aumentar seus conhecimentos

Continuar lendo »

Mapear unidade de rede

Mapear uma unidade de rede; Declare Function WNetAddConnection Lib “mpr.dll” Alias “WNetAddConnectionA” (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName _ As String) As Long Declare Function WNetGetConnection Lib “mpr.dll” Alias “WNetGetConnectionA” _ (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName _ As Long) As Long Declare Function WNetCancelConnection Lib “mpr.dll” Alias

Continuar lendo »

Alarme

Alarme em Visual Basic Option Explicit Dim AlarmTime Const conMinimized = 1 Private Sub Form_Click() AlarmTime = InputBox(“Digite a hora”, “VB Alarme”, Hora de Alarme) If AlarmTime = “” Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox “Valor digitado inválido” Else ‘ String válida, AlarmTime = CDate(AlarmTime) ‘ Guarda o valor da hora em AlarmTime.

Continuar lendo »