- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代碼問題 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45394)
-- 发布时间：2014/1/24 9:07:00
-- [求助]代碼問題
1.如何讓系統的關閉X紐沒有作用。2.若自己做個按紐是要離开系統如下代碼：
If MessageBox.Show("是否保存修改", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then
yes 是保存系統
No是不保存
cancel是回到當前窗口
以上代碼應如何達成。謝謝！
-- 发布时间：2014/1/24 9:11:00
--
basemainform..ControlBox=False |
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Syscmd.Project.Exit(True)
Else if Result = DialogResult.No Then
Syscmd.Project.Exit(False)
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Syscmd.Project.Exit(True)
Else if Result = DialogResult.No Then
Syscmd.Project.Exit(False)
else
啥也不干.
End if
End if
-- 发布时间：2014/1/24 9:35:00
--
以下是引用Bin在2014-1-24 9:11:00的发言：
|
basemainform..ControlBox=False
|
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Syscmd.Project.Exit(True)
Else if Result = DialogResult.No Then
Syscmd.Project.Exit(False)
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Syscmd.Project.Exit(True)
Else if Result = DialogResult.No Then
Syscmd.Project.Exit(False)
else
啥也不干.
End if
End if
再一次謝謝Bin老師！
如何讓系統關閉紐X沒有作用或看不見。
-- 发布时间：2014/1/24 9:36:00
--
上面的代码就是啊.
basemainform.ControlBox=False
-- 发布时间：2014/1/24 10:09:00
--
以下是引用Bin在2014-1-24 9:36:00的发言：
上面的代码就是啊.
上面的代码就是啊.
basemainform.ControlBox=False
抱歉沒表達清楚。我的意思是系統打开時右上角那個關閉X紐，因我在菜單配置欄已加個離开紐，用老師教的代碼去執行是ok。不使用系統的關閉按鈕是因為常發現有bug情形，也不知為什麼？
-- 发布时间：2014/1/24 10:14:00
--
这个就是隐藏系统关闭按钮的哦.
-- 发布时间：2014/1/24 10:41:00
--
以下是引用Bin在2014-1-24 10:14:00的发言：
这个就是隐藏系统关闭按钮的哦.
这个就是隐藏系统关闭按钮的哦.
我在項目屬性沒看到關閉的設置，有最大化與最小化設置，是否用代碼隱藏？代碼如何達成？再次謝謝老師！
-- 发布时间：2014/1/24 10:55:00
--
我无语,你是看不到我发的代码还是怎么得
-- 发布时间：2014/1/24 11:13:00
--
以下是引用Bin在2014-1-24 10:55:00的发言：
我无语,你是看不到我发的代码还是怎么得
我无语,你是看不到我发的代码还是怎么得
抱歉！老教的我了解，那是我按下就隱藏是ok。我的意思是打开項目後就隱藏，這樣用戶才會使用我設置的關閉按鈕。再次謝謝老師！
-- 发布时间：2014/1/24 11:36:00
--
那个是实现这个效果的代码, 你要打开项目就隐藏就放到ALteropenPROJECT事件去.
你放到按钮的Click事件,当然点击了按钮才会隐藏.
我也没让你放到Click事件里面去啊.