APRENDENDO A DECLARAR VARIAVEIS NO VB6

Private Sub cb_ssti_Change()

End Sub

Private Sub Confirma_Click()
'Indo para outra tela
R1VN002.Show 1
End Sub

Private Sub Form_Load()

'Criacao de combo
cb_ssti.AddItem ""
cb_ssti.AddItem "Adaptativa"
cb_ssti.AddItem "Consulta-Consultoria"
cb_ssti.AddItem "Correção de erros"
cb_ssti.AddItem "Departamental"
cb_ssti.AddItem "Emergencial"
cb_ssti.AddItem "Evolutiva"
cb_ssti.AddItem "Infra-Estrutura"
cb_ssti.AddItem "Migração SGD para SSTI"
cb_ssti.AddItem "Novo Projeto"

'Data da maquina no rodapé
pd3d_status(1).Caption = Date


End Sub

Public Function SoNumeros(Key As Integer, Optional Sinais As Boolean = False, Optional Numero As String) As Integer
'No campo N SSTI somente numeros

Dim Nums As String

    If Numero <> "" Then
        If Key = 46 Or Key = 44 Then    'ponto, vírgula
            Key = 44
            If InStr(1, Numero, ",") > 0 Then Key = 0
        End If
    End If

    Nums = "0123456789" & IIf(Sinais, "/*-+,.", "")
    SoNumeros = Key
    If Key <> 8 Then
        If InStr(Nums, Chr(Key)) = 0 Then
            SoNumeros = 0
        End If
    End If
End Function

Private Sub Limpar_Click()
'Funcao Limpar todos os campos
tb_ssti_null.Text = ""
tb_num_ssti.Text = ""
tb_asu.Text = ""
cb_ssti.ListIndex = -1
op_ssti_s.Value = False
ob_ssti_n.Value = False
ob_sim.Value = False
ob_nao.Value = False

End Sub

Private Sub Sair_Click()
' Funcao Sair
End
End Sub

Private Sub tb_asu_KeyPress(KeyAscii As Integer)
' No campo assunto somente letras + space
   On Error Resume Next
If KeyAscii >= 42 And KeyAscii <= 57 Then KeyAscii = 0
End Sub

Private Sub tb_num_ssti_KeyPress(KeyAscii As Integer)
' No campo RS somente numeros sem space
On Error Resume Next
   KeyAscii = SoNumeros(KeyAscii)
End Sub

Private Sub tb_ssti_null_KeyPress(KeyAscii As Integer)
' No campo SSTI somente numeros sem space
On Error Resume Next
   KeyAscii = SoNumeros(KeyAscii)
End Sub

Private Sub bot_limpar_Click()
'Funcao Limpar
TB_nom.Text = ""
ob_ets.Value = False
ob_spl.Value = False
ob_crc.Value = False


If Fu_limpa_data(tb_dt) = False Then
'Chamando a funcao limpa data tb_dt em module1.bas
    MsgBox "TESTE"
    Exit Sub
 End If

tb_dv.PromptInclude = False
 'Limpa o campo documento versao
   tb_dv.Mask = "##/####"
   tb_dv.Text = ""
   tb_dv.PromptInclude = True

   tb_vrs.PromptInclude = False
 'Limpa o campo Versao
   tb_vrs.Mask = "#.#"
   tb_vrs.Text = ""
   tb_vrs.PromptInclude = True


End Sub

Private Sub bot_voltar_Click()
Unload Me
End Sub

Private Sub tb_dt_KeyPress(KeyAscii As Integer)
'Funcao- Quando chegar no 10 digito ,mudara de campo
If tb_dt.SelStart = 9 Then
   SendKeys "{TAB}"
   
 End If

End Sub

Private Sub TextBox1_LostFocus()

  If Fu_Checa_Data(TextBox1.Text) = False Then
     TextBox1.SetFocus
  End If



End Sub

Private Sub tb_dt_LostFocus()
    If tb_dt.ClipText <> "" Then
        If Not Fu_Checa_Data(CStr(tb_dt.Text)) Then
            MsgBox "DATA INVALIDA", vbExclamation, "ATENÇÃO"
        End If
    End If
End Sub

Private Sub tb_dv_KeyPress(KeyAscii As Integer)
'Funcao- Quando chegar no 10 digito ,mudara de campo
If tb_dv.SelStart = 6 Then
   SendKeys "{TAB}"
   
 End If

End Sub

Private Sub tb_dv_LostFocus()
    If tb_dv.ClipText <> "" Then
        If Not Fu_Checa_Data_Documentacao(CStr(tb_dv.Text)) Then
            MsgBox "DATA INVALIDA", vbExclamation, "ATENÇÃO"
        End If
    End If
End Sub

Private Sub TB_nom_Change()
'Verifica no campo nome ,que seja digitado somente letras com numeros
        If IsNumeric(TB_nom) = True Then
           MsgBox "VERIFIQUE INFORMAÇÃO DIGITADA"
           TB_nom.Text = ""
           TB_nom.SetFocus
           Exit Sub
        End If

'Data da maquina no rodapé
pd3d_status(1).Caption = Date

End Sub

Private Sub tb_vrs_KeyPress(KeyAscii As Integer)
'Permite somente número no campo
On Error Resume Next
'KeyAscii = SoNumeros(KeyAscii)
    Call SU_Permite_Numero_versao(KeyAscii)


'Funcao- Quando chegar no 02 digito ,mudara de campo
If tb_vrs.SelStart = 2 Then
  SendKeys "{TAB}"
End If


End Sub

Function Fu_Checa_Data_Documentacao(data$)
'Verifica se a data e valida
  Fu_Checa_Data_Documentacao = True


   If Not IsDate(data$) Then
      Fu_Checa_Data_Documentacao = False
   ElseIf Val(Mid(data$, 2, 2)) > 12 Then
      Fu_Checa_Data_Documentacao = False
   End If
   
End Function

Function Fu_Checa_Data(data$)
'Verifica se a data e valida
   Fu_Checa_Data = True


   If Not IsDate(data$) Then
      Fu_Checa_Data = False
   ElseIf Val(Mid(data$, 4, 2)) > 12 Then
      Fu_Checa_Data = False
   End If
   
End Function

Public Function Fu_limpa_data(mskEdit As MaskEdBox)

    Fu_limpa_data = False

    mskEdit.PromptInclude = False
    mskEdit.Mask = "##/##/####"
    mskEdit.Text = ""
    mskEdit.PromptInclude = True
    
    Fu_limpa_data = True


End Function

Sub SU_Permite_Numero_versao(Tecla%)
'No campo versao so permite numeros com o ponto ja fixo
    If Tecla% = 8 Then
        Exit Sub
       
    End If
  
    If InStr("1234567890.", Chr(Tecla%)) = 0 Then
        Tecla% = 0
    End If

End Sub