.visualbasic2

Private Sub Command4_Click()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub cmdabrir_Click()

cdlsetup.Flags = 0

cdlsetup.Filter = "All Files (*.*)|*.*|Text Files" & _

"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

cdlsetup.ShowOpen

cdlsetup.FilterIndex = 0

If cdlsetup.filename <> "" Then
    
    Open cdlsetup.filename For Input As #1

    frmAgenda.txtDescricao.Text = Input$(LOF(1), #1)

    Close #1
    
    End If

End Sub

Private Sub cmdajuda_Click()

 cdlsetup.HelpFile = "c:\windows\help\sol.hlp"

  'cdl.HelpCommand = cdlHelpContents

  cdlsetup.HelpCommand = cdlHelpKey

  'pode-se usar uma das opcoes acima

  cdlsetup.ShowHelp

End Sub

Private Sub cmdcores_Click()

cdlsetup.Flags = cdlCCRGBInit

cdlsetup.ShowColor

'frmAgenda.BackColor = cdlSetup.Color

txttelefone.ForeColor = cdlsetup.Color

txtnome.ForeColor = cdlsetup.Color

txtendereço.ForeColor = cdlsetup.Color

txtbairro.ForeColor = cdlsetup.Color

txtcep.ForeColor = cdlsetup.Color

txtcidade.ForeColor = cdlsetup.Color

txtanotaçăo.ForeColor = cdlsetup.Color

cmbestado.ForeColor = cdlsetup.Color

End Sub

Private Sub cmdfontes_Click()

On Error Resume Next

cdlsetup.Flags = cdlCFScreenFonts ' valor = 1 Fontes de tela

'cdlsetup.Flags = cdlCFPrinterFonts 'valor = 2 Fontes da Impressora

'cdlsetup.Flags = cdlCFBoth 'valor = 3 Ambos os conjuntos de fontes

cdlsetup.ShowFont

txtDescricao.FontName = cdlsetup.FontName             'O nome da fonte básica

txtDescricao.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

txtDescricao.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

txtDescricao.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

txtDescricao.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

txtDescricao.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada

txtnome.FontName = cdlsetup.FontName             'O nome da fonte básica

txtnome.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

txtnome.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

txtnome.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

txtnome.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

txtnome.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada

txtEndereco.FontName = cdlsetup.FontName             'O nome da fonte básica

txtEndereco.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

txtEndereco.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

txtEndereco.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

txtEndereco.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

txtEndereco.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada

txtbairro.FontName = cdlsetup.FontName             'O nome da fonte básica

txtbairro.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

txtbairro.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

txtbairro.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

txtbairro.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

txtbairro.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada


txtcep.FontName = cdlsetup.FontName             'O nome da fonte básica

txtcep.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

txtcep.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

txtcep.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

txtcep.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

txtcep.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada

txtcidade.FontName = cdlsetup.FontName             'O nome da fonte básica

txtcidade.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

txtcidade.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

txtcidade.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

txtcidade.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

txtcidade.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada

cmbestado.FontName = cdlsetup.FontName             'O nome da fonte básica

cmbestado.FontSize = cdlsetup.FontSize             'A altura da fonte, medida em pontos

cmbestado.FontItalic = cdlsetup.FontBold           'Determina se foi selecionada uma fonte em negrito

cmbestado.FontUnderline = cdlsetup.FontItalic      'Determina se foi selecionada uma fonte em itálico

cmbestado.FontUnderline = cdlsetup.FontUnderline   'Determina se a fonte deve ser sublinhada

cmbestado.FontStrikethru = cdlsetup.FontStrikethru 'Determina se a fonte deve ser tachada

End Sub

Private Sub cmdimprimir_Click()

cdlsetup.ShowPrinter

Printer.Print "teste"

End Sub

Private Sub cmdnovo_Click()

txtnome = ""

txtEndereco = ""

txtbairro = ""

txtcep = ""

txtcidade = ""

txtDescricao = ""

End Sub

Private Sub cmdsair_Click()

MsgBox " Programa produzido por Sandro Salimeno "

Unload Me

End Sub

Private Sub cmdsalvar_Click()

cdlsetup.Flags = 0

cdlsetup.ShowSave

If cdlsetup.filename <> "" Then

    Open cdlsetup.filename For Output As #1

    Print #1, frmAgenda.txtDescricao.Text

    Close #1

End If

End Sub

Private Sub Form_Load()

cmbestado.AddItem "RJ"

cmbestado.AddItem "RS"

cmbestado.AddItem "PR"

cmbestado.AddItem "SP"

cmbestado.ListIndex = 0

'cmbEstado.ItemData(cmbEstado.NewIndex) = ItemNumero

End Sub

Clique aqui para voltar para a página inicial