# Re: 也许你们要的透明跟我的情况不同, 不过我发现问题请你们帮忙!!

Posted by nothing on June 17, 1999 at 09:53:53:

In Reply to: 好可怕！你一定看了什么片子是吗？ posted by 小吴 on June 16, 1999 at 14:22:46:

我是为了无法将msgbox()设成不用user按键的模式,才想要用一个form来取代msgbox(), 我是这么做的..
form1是用来取代msgbox()的.
form1 中放个 label1 用来显示讯息
放个 Image1 用来显示警告图示
改变form的颜色背景
程式如下
Private Sub Form_Load()
Me.Width = 6000
Me.Height = 1300
Me.Top = 2205
Me.Left = 1770
Label1.Caption = pMessage
End Sub

..pMessage 是公用变数

测试..
form2 中放个 command ..
程式如下..
Private Sub Command1_Click()
pMessage="资料输入错误!!"
mSTime = Timer
form1.Show
Do While Timer < mSTime + 3
Loop
Unload formDialog
End Sub

结果..form2出现时只外框跟抬头正常,其他都变成透明 的.我原本想让message show 3 秒后自己消失,不要让user老是在按mouse..可是现在连message都出不来,如果把计时程式拿掉如下..
Private Sub Command1_Click()
pMessage="资料输入错误!!"
mSTime = Timer
form1.Show
End Sub
form1.show 则一切正常..但不会自己消失..
就这样啰....

Follow Ups:

- Re: 也许你们要的透明跟我的情况不同, 不过我发现问题请你们帮忙!! Shadow 10:45:30 6/17/99 (3)
  - Re:用你的方法就好了..真谢谢你的帮忙...(无内文) nothing 11:01:38 6/17/99 (0)
  - Re: 也许你们要的透明跟我的情况不同, 不过我发现问题请你们帮忙!! Shadow 10:55:51 6/17/99 (1)
    - Re: 也许你们要的透明跟我的情况不同, 不过我发现问题请你们帮忙!! nothing 11:03:47 6/17/99 (0)