初学VB遇到的一个程序设计题

显示全部楼层 · 2007-12-7 16:08:10

Dim isDBc As BooleanPrivate Sub Form_Click()isDBc = FalseTimer1.Enabled = TrueEnd SubPrivate Sub Form_DblClick()isDBc = TrueTimer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Interval = 300Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If isDBcTrue Then
Me.Print "你好,欢迎使用VB"
Me.Caption = "鼠标单击窗体"Else
Me.Print "再见,谢谢使用VB"
Me.Caption = "鼠标双击窗体"End IfTimer1.Enabled = FalseEnd Sub在窗体上添加一个 Timer控件再粘帖上面的代码就可以了标题栏不显示的原因是你没加双引号将字符串引住的原因

千问 · 2007-12-7 16:08:10

Dim isDBc As Boolean Private Sub Form_Click() isDBc = False Timer1.Enabled = True End Sub Private Sub Form_DblClick() isDBc = True Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 300 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If isDBcTrue Then Me.Print "你好,欢迎使用VB" Me.Caption = "鼠标单击窗体" Else Me.Print "再见,谢谢使用VB" Me.Caption = "鼠标双击窗体" End If Timer1.Enabled = False End Sub 在窗体上添加一个Timer控件标题栏不显示的原因是你没加双引号

千问 · 2007-12-7 16:08:10

Form1.Caption = "鼠标双击窗体"Form1.Caption = "鼠标单击窗体"

千问 · 2007-12-7 16:08:10

呵呵 VB的纠错就是不那么好用伊人尤在说的很对标题栏显示不出来是因为你没加双引号加了就OK了双击也会OK的

千问 · 2007-12-7 16:08:10

Form1.FontSize = 20 Form1.FontName = "黑体" Form1.ForeColor = RGB(255, 0, 0) Form1.Print "你好,欢迎使用VB" Form1.Caption = "鼠标单击窗体" End Sub Private Sub Form_DblClick() Form1.FontSize = 20 Form1.FontName = "黑体" Form1.ForeColor = RGB(255, 0, 0) Form1.Print "再见,谢谢使用VB" Form1.Caption = "鼠标双击窗体" End Sub vba /excel中试了挺好呀，如下（有的属性不一样加了‘）：Private Sub UserForm_Click()'UserForm.FontSize = 20'UserForm.FontName = "黑体"UserForm.ForeColor = RGB(255, 0, 0)'UserForm.Print "你好,欢迎使用VB"UserForm.Caption = "鼠标单击窗体"End SubPrivate Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)'UserForm.FontSize = 20'UserForm.FontName = "黑体"UserForm.ForeColor = RGB(255, 0, 0)'UserForm.Print "再见,谢谢使用VB"UserForm.Caption = "鼠标双击窗体"End SubPrivate Sub Form-load()Caption = ""Private Sub Form_Click() Cls Form1.FontSize = 20 Form1.FontName = "黑体" Form1.ForeColor = RGB(255, 0, 0) Form1.Print "你好,欢迎使用VB" Form1.Caption = "鼠标单击窗体" End Sub Private Sub Form_DblClick() Cls Form1.FontSize = 20 Form1.FontName = "黑体" Form1.ForeColor = RGB(255, 0, 0) Form1.Print "再见,谢谢使用VB" Form1.Caption = "鼠标双击窗体" End Sub

千问 · 2007-12-7 16:08:10

Private Sub Form_Click() clsForm1.Print "你好,欢迎使用VB" Form1.Caption = "鼠标单击窗体" End Sub Private Sub Form_DblClick() clsForm1.Print "再见,谢谢使用VB" Form1.Caption = "鼠标双击窗体" End Sub

千问 · 2007-12-7 16:08:10

系统响应双击之前会响应单击,所以在单击程序里要判断一下