Funções, rotinas e dicas

[gabrieldb 5]

Função Salvar "igual" do Notepad, Word, etc...

 

Crie uma váriavel(FormAlterado)para todo o form.

 

No load do form você coloca FormAlterado = False.

 

Nos eventos CHANGE dos seus textbox, combobox, e mais o que você tiver na tela, você coloca FormAlterado = True

 

Daí no evento QueryUnload do Form você verificaessa variavel.

Ficará assim:

 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim mensagem As String, botões As Integer, titulo As String
Dim resposta As Integer
   mensagem = "Deseja salvar as alterações ?"   ' Define mensagem
   botões = vbYesNoCancel + vbExclamation ' Define  botões
   titulo = "Cadastro de Clientes"   ' Define título
      resposta = MsgBox(mensagem, botões, titulo)
   If resposta = vbNo Then   'se a resposta foi "não"
      Unload Me
   ElseIf resposta = vbYes Then  'se a resposta foi "sim"
     cmdSalvar_Click
   Else
  Cancel = 1 'se a resposta foi "cancelar"
   End If
       
End Sub

Pra mim foi útil pode ser pra vocês tmb...

Abraço!

[Giancarlo Braga 0]

Ordenando DataGrid no Visual Basic 6.

 

Como faremos isso?

Primeiro, usaremos o evento HEADCLICK do DataGrid.

Segundo, usaremos a propriedade sort do recordset para sortear a coluna em questão selecionada pelo usuário.

 

Veja exemplo:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) 
    adodc1.recordset.sort=adodc1.recordset.fields(colindex).name 
End Sub

Grato,

Giancarlo Braga

[ValmorLuiz 0]

Função para Marcar/desmarcar todos os filhos em uma treeview.

 

TV = minha treeview

Configure a treeview para usar checkbox

 

No evento NodeCheck:

Private Sub TV_NodeCheck(ByVal Node As MSComctlLib.Node)
   If Node.Children > 0 Then
      SelecionarFilhos Node.Key, Node.Checked
   End If
end sub

Função:

Private Sub SelecionarFilhos(nKey As String, Check As Boolean)
   For I = 1 To TV.Nodes.Count
      Set Nx = TV.Nodes.Item(I)
      If Nx.Tag <> "PAI" Then 'quando criei a treeview identifiquei com a Tag = Pai o primeiro nível'
         If Nx.Parent.Key = nKey Then
            Nx.Checked = Check
         End If
      End If
   Next I
   For I = 1 To TV.Nodes.Count
      Set Nx = TV.Nodes.Item(I)
      If Nx.Tag <> "PAI" Then
         If Nx.Children > 0 And Nx.Checked = Check And Nx.Parent.Key = nKey Then
            Nx.Expanded = True
            SelecionarFilhos Nx.Key, Check
         End If
      End If
   Next I
End Sub

[jaguar1 0]

Tai mais uma de minhas Subs...

essa é show de bola, quebra um galhão nos meus sistemas...

 

• Serve para carregar um ComboBox com Informações (baseado no parametro (Tipo) que você passa)

• Vcs podem colocar mais coisas nela... é só seguir o eskema:

 

Public Sub DadosCBO(Cb As ComboBox, Tipo As String, Optional NumIni As Double, Optional NumFim As Double)
Cb.Clear
Tipo = LCase(Tipo)
Select Case Tipo
	Case "meses"
		Cb.AddItem "Janeiro"
		Cb.AddItem "Fevereiro"
		Cb.AddItem "Março"
		Cb.AddItem "Abril"
		Cb.AddItem "Maio"
		Cb.AddItem "Junho"
		Cb.AddItem "Julho"
		Cb.AddItem "Agosto"
		Cb.AddItem "Setembro"
		Cb.AddItem "Outubro"
		Cb.AddItem "Novembro"
		Cb.AddItem "Dezembro"
	Case "diasemana"
		Cb.AddItem "Domingo"
		Cb.AddItem "Segunda"
		Cb.AddItem "Terça"
		Cb.AddItem "Quarta"
		Cb.AddItem "Quinta"
		Cb.AddItem "Sexta"
		Cb.AddItem "Sábado"
	Case "numeros"
		Do While NumIni <= NumFim
			Cb.AddItem NumIni
			NumIni = NumIni + 1
		Loop
	Case "estados"
		Cb.AddItem "AC"
		Cb.AddItem "AL"
		Cb.AddItem "AM"
		Cb.AddItem "AP"
		Cb.AddItem "BA"
		Cb.AddItem "CE"
		Cb.AddItem "DF"
		Cb.AddItem "ES"
		Cb.AddItem "GO"
		Cb.AddItem "MA"
		Cb.AddItem "MG"
		Cb.AddItem "MS"
		Cb.AddItem "MT"
		Cb.AddItem "PA"
		Cb.AddItem "PB"
		Cb.AddItem "PE"
		Cb.AddItem "PI"
		Cb.AddItem "PR"
		Cb.AddItem "RJ"
		Cb.AddItem "RN"
		Cb.AddItem "RO"
		Cb.AddItem "RR"
		Cb.AddItem "RS"
		Cb.AddItem "SC"
		Cb.AddItem "SE"
		Cb.AddItem "SP"
		Cb.AddItem "TO"
	Case "impressoras"
		For Each ImprComputador In Printers
			Cb.AddItem ImprComputador.DeviceName
		Next ImprComputador
	Case "estadocivil"
		Cb.AddItem "Amasiado(a)"
		Cb.AddItem "Casado(a)"
		Cb.AddItem "Desquitado(a)"
		Cb.AddItem "Divorciado(a)"
		Cb.AddItem "Separado(a)"
		Cb.AddItem "Solteiro(a)"
		Cb.AddItem "Viúvo(a)"
		Cb.AddItem "2º União"
	Case "sexo"
		Cb.AddItem "Masculino"
		Cb.AddItem "Feminino"
End Select
End Sub

 

... show de bola pessoal... continuem postando!!! Até mais!

 

 

 

Caro amigo: Amasiado, desquitado e 2ª união não são "estado civil" brasileiro pelo código civil em vigência.