弹出窗口位置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

可以设计一个代码设定窗口弹出在显示器的位置吗？

感谢感谢

BaseMainForm.Visible = True

Forms("主窗口").show() '只显示窗口

Dim frm As WinForm.Form
frm = Forms("窗口1")
frm.Open(100,100)

放在按钮为什么没有反应啊感谢感谢

可以了谢谢

[此贴子已经被作者于2016/12/7 10:04:42编辑过]

为什么把自动弹出的窗口改为设计的窗口就不能用嗯感谢感谢

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

还是不能弹出设计的窗口呢，就是把之前的窗口改为自己设计的窗口感谢感谢

是的是独立的窗口

此主题相关图片如下：捕获.png

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")

If lbl1.text <> txt1.text Then

msgbox("不匹配")

'Audio.Play("d:\test.wav")

Else

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 '显示窗口

Forms("确认窗口").Open

'msgbox("已学完")

End If

Else

Dim idx As Integer = t.FindRow("听写_状态 is null or 听写_状态 <> '待复习'", t.Position+1, True)

If idx = -1 Then

'Forms("确认窗口").show '显示窗口

Forms("确认窗口").Open

'msgbox("已学完")

Else

Dim r As Row = t.Rows(idx)

t.Position = idx

Dim sp As New DotNetSpeech.SpVoice()

sp.Speak(r("目录_英文"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

txt1.text = ""

End If

[此贴子已经被作者于2016/12/7 18:05:42编辑过]

主题：弹出窗口位置