资 源 简 介
石家庄铁道大学VB程序设计______饭店点菜系统
16
‘当和小于零，则标签离窗体左边距离等于窗体宽度 End If
End Sub
留言板的实现
Private Sub Command9_Click()
If Text5.Text = "" Or Text6.Text = " " Then MsgBox "留言人和留言内容不能为空", 64 ，"注意 " ‘当留言内容为空时，弹出提示，请顾客留言 Else
SG = Now ‘正常留言时，留言时间设为当时
SJ = Text5.Text & " " & SG & vbCrLf & Text6.Text & vbCrLf & "---------" ‘将文本框内容与时间记入留言板 &
