| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 弹出窗口位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93784) |
| -- 作者：yangwenghd -- 发布时间：2016/12/6 23:54:00 -- 弹出窗口位置 可以设计一个代码 设定窗口弹出在显示器的位置吗？ 感谢 感谢
BaseMainForm.Visible = True Forms("主窗口").show() \'只显示窗口 |
| -- 作者：菲舍尔 -- 发布时间：2016/12/7 1:58:00 -- 修改窗口属性，控件的坐标一般均为，top，left，width，height，分别对应上坐标，左坐标，宽、高 |
| -- 作者：有点蓝 -- 发布时间：2016/12/7 8:29:00 -- 参考：http://www.foxtable.com/webhelp/scr/0708.htm |
| -- 作者：yangwenghd -- 发布时间：2016/12/7 9:37:00 -- Dim frm As WinForm.Form frm = Forms("窗口1") frm.Open(100,100) 放在 按钮为什么没有反应啊 感谢 感谢
|
| -- 作者：有点蓝 -- 发布时间：2016/12/7 9:54:00 -- 我测试没有问题。如果不是模式或独立窗口，仔细看3楼帮助 |
| -- 作者：yangwenghd -- 发布时间：2016/12/7 10:02:00 -- 可以了 谢谢
[此贴子已经被作者于2016/12/7 10:04:42编辑过]
|
| -- 作者：yangwenghd -- 发布时间：2016/12/7 13:25:00 -- 为什么把自动弹出的窗口改为设计的窗口就不能用嗯 感谢 感谢 Dim t As Table = Tables("英语") t.Current("听写_次数") += 1 If e.Form.controls("checkbox1").checked Then Dim drs As List(Of DataRow) = t.DataTable.Select("听写_状态 Is null Or 听写_状态 <> \'待复习\'") If drs.count > 0 Then Dim idx As Integer = Rand.Next(drs.count-1) t.position = t.FindRow(drs(idx)) Dim r = t.current Dim sp As New DotNetSpeech.SpVoice() sp.Speak(r("目录_英文"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) txt1.text = "" Else Forms("确认窗口").show \'显示窗口 \'msgbox("已学完") End If Else Dim idx As Integer = t.FindRow("听写_状态 is null or 听写_状态 <> \'待复习\'", t.Position+1, True) If idx = -1 Then Forms("确认窗口").show \'显示窗口 \'msgbox("已学完") Else |
| -- 作者：有点蓝 -- 发布时间：2016/12/7 14:22:00 -- Forms("确认窗口").Open(100,100) |
| -- 作者：yangwenghd -- 发布时间：2016/12/7 17:01:00 -- 还是不能弹出设计的窗口呢，就是把之前的窗口改为自己设计的窗口 感谢感谢 |
| -- 作者：有点蓝 -- 发布时间：2016/12/7 17:42:00 -- 窗口是独立窗口或模式窗口吗http://www.foxtable.com/webhelp/scr/0697.htm |