vb实验代码(1)课件.docxVIP

概述： Private Sub Commandl_Click() Textl.Le代= Forml.Width - Textl.Width Text 1.Top = 0End Sub控件1Private Sub cmdLogin_Click() IfTxtID.Text = admin And txtPsw.Text = 123456” ThenMsgBox ”登录成功“，vbOKOnly + vblnformation ElseMsgBox ”登录失败、vbOKOnly + vbCritical End IfEnd SubPrivate Sub cmdReset_Click() TxtlD.Text = txtPsw.Text =End SubPrivate Sub cmdClose_Click() EndEnd Sub控件2Private Sub CmdSet_Click() If optST.Value = True ThenIbICaption.FontName = 宋体” Elself optLS.Value = True ThenIbICaption.FontName 二隶书” ElseIbICaption.FontName = 楷体” End If If optFontl6.Value = True ThenIbICaption.FontSize = 16 Else