共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：每次设计窗口时总是有这个提示？
1楼
mr725 发表于：2009/3/13 13:54:00
此主题相关图片如下：每次设计窗口时总是提示.jpg
难道点击‘窗口管理’或‘设计’按钮也会出发某个控件？？？
奇怪的是，马上关闭打开的设计窗口，在重新点击‘设计’按钮，就不会提示了！ 在从‘窗口管理’点击‘设计’按钮又会提示！ 可我的代码运行中都没有任何问题呀？～
2楼
czy 发表于：2009/3/13 13:59:00Leave中代码没问题？
3楼
mr725 发表于：2009/3/13 14:01:00有哇！～
if e.Form.Controls("combobox1").text = ""
Messagebox.Show("请选择字号!", "提示",MessageBoxButtons.OK)
e.Form.Controls("combobox1").Select()
end if
4楼
czy 发表于：2009/3/13 14:16:00加个判断试试：
if e.Form.Opened = False Then
Return
end if
if e.Form.Controls("combobox1").text = ""
Messagebox.Show("请选择字号!", "提示",MessageBoxButtons.OK)
e.Form.Controls("combobox1").Select()
end if
if e.Form.Opened = False Then
Return
end if
if e.Form.Controls("combobox1").text = ""
Messagebox.Show("请选择字号!", "提示",MessageBoxButtons.OK)
e.Form.Controls("combobox1").Select()
end if
5楼
狐狸爸爸 发表于：2009/3/13 14:52:00其实是这样的，你设计窗口的时候，会先关闭窗口的，自然就会触发leave事件。
可以做个简单的例子文件，给我看看分析。
我有点害怕整套项目发上来的。
可以做个简单的例子文件，给我看看分析。
我有点害怕整套项目发上来的。
6楼
mr725 发表于：2009/3/13 15:08:00以下是引用czy在2009-3-13 14:16:00的发言：
加个判断试试：
if e.Form.Opened = False Then
Return
end if
if e.Form.Controls("combobox1").text = ""
Messagebox.Show("请选择字号!", "提示",MessageBoxButtons.OK)
e.Form.Controls("combobox1").Select()
end if
加个判断试试：
if e.Form.Opened = False Then
Return
end if
if e.Form.Controls("combobox1").text = ""
Messagebox.Show("请选择字号!", "提示",MessageBoxButtons.OK)
e.Form.Controls("combobox1").Select()
end if
这个好使！～ 谢谢！！！ 目前解决了～～
7楼
yuansq 发表于：2009/3/13 15:26:00以下是引用狐狸爸爸在2009-3-13 14:52:00的发言：
其实是这样的，你设计窗口的时候，会先关闭窗口的，自然就会触发leave事件。
可以做个简单的例子文件，给我看看分析。
我有点害怕整套项目发上来的。
其实是这样的，你设计窗口的时候，会先关闭窗口的，自然就会触发leave事件。
可以做个简单的例子文件，给我看看分析。
我有点害怕整套项目发上来的。
你不会也是要一个一个地方点开察看有没有代码吧，自食其果，哈哈。
8楼
狐狸爸爸 发表于：2009/3/13 15:29:00以下是引用yuansq在2009-3-13 15:26:00的发言：
你不会也是要一个一个地方点开察看有没有代码吧，自食其果，哈哈。
共8 条记录, 每页显示 10 条, 页签:
[1]