繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限觀看附件圖片尊貴會員無限看帖不用回覆安全提問(回答) 和 永久尊貴會員 事宜
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › msgbox問題求助
gemega無碼我的英雄母柯南3doffice
藍寶石金sdde 653aida64 eabf 091スライムslg海賊王
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

平溪 15歲無照騎士 逆
黃狗死命咬小女孩
[繁]CODE GEASS 奪回

[簡]異世界失格08-
女子搭台鐵時亂呻吟
2025年3月「ALDNOAH.Z
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 4323|回復: 6
打印上一主題下一主題

[求助]msgbox問題求助[複製鏈接]

a135bcde

帖子
2
積分
1 點
潛水值
3350 米
跳轉到指定樓層
樓主
發表於 2015-7-3 02:06 PM|只看該作者|倒序瀏覽
如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。
本帖最後由 a135bcde 於 2015-7-3 02:07 PM 編輯

小弟我想用msgbox寫成向下面那張圖的樣子但因為學校買的書也只是簡單帶過...沒什麼解釋msgbox...
可請問網上的各位大大這程式碼要怎麼寫??...
瀏覽完整內容，請先 註冊 或 登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊
分享分享0收藏收藏0支持支持0
如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。

使用道具檢舉

rr09192084

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
頭香
發表於 2015-7-3 07:45 PM|只看該作者
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
看看這個是不你要的
你問的這個問題是程式語言最基礎的部分
所以你說書本上是簡單帶過真令人不敢置信
  1.         ' 以你這個圖所表示的流程會有2層的架構，3個問題
  2.         ' 以下3個變數代表3個問題
  3.         Dim msgTop As String
  4.         Dim msgYes As String
  5.         Dim msgNo As String
  6.         ' 以下3個變數代表3個問題視窗的抬頭
  7.         Dim titleTop As String
  8.         Dim titleYes As String
  9.         Dim titleNo As String
  10.         ' 以下3個變數代表3個問題所選擇的答案
  11.         Dim responseTop As MsgBoxResult
  12.         Dim responseYes As MsgBoxResult
  13.         Dim responseNo As MsgBoxResult
  14.         ' 這是設定MsgBox的形式與按鈕
  15.         Dim style As MsgBoxStyle
  16.         ' 這是控制是否重複迴圈的布林值變數
  17.         Dim isEnd As Boolean = True
  18.         ' 設定MsgBox的樣式，請自行參閱MSDN https://msdn.microsoft.com/zh-tw/library/139z2azd(v=vs.90).aspx
  19.         style = MsgBoxStyle.DefaultButton3 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo

  21.         While isEnd = True
  22.             msgTop = "第一個問題?"
  23.             titleTop = "第一個問題的抬頭"
  24.             responseTop = MsgBox(msgTop, style, titleTop)
  25.             If responseTop = MsgBoxResult.Yes Then   ' 第一層回答是
  26.                 msgYes = "第一層回答是之後的問題？"
  27.                 titleYes = "第一層回答是之後的抬頭"
  28.                 responseYes = MsgBox(msgYes, style, titleYes)
  29.                 If responseYes = MsgBoxResult.Yes Then   ' 第一層回答是之後第二層回答是
  30.                     ' 這裡可以寫一些你要作處裡的程式
  31.                     ' ............
  32.                     ' ............
  33.                     ' 然後決定要不要跳出迴圈
  34.                     isEnd = False ' 改成False，所以會跳出迴圈
  35.                 Else  ' 第一層回答是之後第二層回答否
  36.                     ' 這裡可以寫一些你要作處裡的程式
  37.                     ' ............
  38.                     ' ............
  39.                     ' 然後決定要不要跳出迴圈
  40.                     isEnd = False ' 改成False，所以會跳出迴圈
  41.                 End If
  42.             Else
  43.                 ' 第一層回答否
  44.                 msgNo = "第一層回答否之後的問題？"
  45.                 titleNo = "第一層回答否之後的抬頭"
  46.                 responseNo = MsgBox(msgNo, style, titleNo)
  47.                 If responseYes = MsgBoxResult.Yes Then   ' 第一層回答否之後第二層回答是
  48.                     ' 這裡可以寫一些你要作處裡的程式
  49.                     ' ............
  50.                     ' ............
  51.                     ' 然後決定要不要跳出迴圈
  52.                     isEnd = False ' 改成False，所以會跳出迴圈
  53.                 Else
  54.                     ' 第一層回答否之後第二層回答否
  55.                     ' 這裡可以寫一些你要作處裡的程式
  56.                     ' ............
  57.                     ' ............
  58.                     ' 然後決定要不要跳出迴圈
  59.                     isEnd = True ' 仍然維持True，所以會回到第一個問題
  60.                 End If
  61.             End If
  62.         End While
  63.     End Sub
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員

點評

darkjack 書上對MSGBOX真的很多都是「帶過」....因為他只是「提示」居多..  發表於 2015-7-3 07:49 PM
darkjack 你比我早PO 一些些 XD  發表於 2015-7-3 07:47 PM
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

darkjack

  專　家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
39507 米
3樓
發表於 2015-7-3 07:46 PM|只看該作者
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。
大致上是這樣寫

只是這樣作法會無限迴圈

註解我不想寫.....
  1.   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.     Dim Mytest1
  3.     Dim Mytest2
  4.     Dim Mytest3

  6. ori:

  8.     Mytest1 = Nothing
  9.     Mytest2 = Nothing
  10.     Mytest3 = Nothing

  12.     Mytest1 = MsgBox("內容1", MsgBoxStyle.YesNo, "標題1")

  14.     If Mytest1 = MsgBoxResult.Yes Then
  15.       Mytest1 = MsgBox("內容2", MsgBoxStyle.YesNo, "標題2")
  16.       If Mytest1 = MsgBoxResult.Yes Then
  17.         Mytest1 = MsgBox("內容3", MsgBoxStyle.YesNo, "標題3")
  18.       Else
  19.         Mytest2 = MsgBox("內容3 -2", MsgBoxStyle.YesNo, "標題3-2")
  20.       End If
  21.       GoTo ori

  23.     Else
  24.       Mytest2 = MsgBox("內容2 - 1", MsgBoxStyle.YesNo, "標題2 - 1")
  25.       If Mytest2 = MsgBoxResult.Yes Then
  26.         Mytest2 = MsgBox("內容4", MsgBoxStyle.YesNo, "標題4")
  27.       Else
  28.         Mytest3 = MsgBox("內容4 -2", MsgBoxStyle.YesNo, "標題4-2")
  29.       End If
  30.     End If

  32.     GoTo ori

  34.   End Sub
複製代碼


...
瀏覽完整內容，請先 註冊 或 登入會員
本人 都是寫 vb.net 如果看到本人的原創 請自備 .Net FrameWork 3.5
上傳頭像立即獲得 1 點積分。

使用道具檢舉

rr09192084

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
4樓
發表於 2015-7-3 08:07 PM|只看該作者
如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。
rr09192084 發表於 2015-7-3 07:45 PM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

看看這個是不你要的
你問的這個問題是程式語言最基礎的部分
所以你說書本上是簡單帶過真令人不敢置信 ...

...
瀏覽完整內容，請先 註冊 或 登入會員

點評

darkjack 是阿～只是你怎麼用 引言方式 XD 我是用點評  發表於 2015-7-4 08:23 PM
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

使用道具檢舉

a135bcde

帖子
2
積分
1 點
潛水值
3350 米
5樓
發表於 2015-7-3 10:41 PM|只看該作者
成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。
感謝眾位大大的幫助~
另外我在問一下VB6.0中能用背景音樂嗎??




點評

darkjack 能...但是請你自己用google 去找一下吧... vb6 music , 最好能看懂英文....  發表於 2015-7-4 08:25 PM
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

e77

Rank: 1

帖子
1051
積分
180 點
潛水值
27442 米
6樓
發表於 2015-7-29 12:07 PM|只看該作者
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。
哇咧~~學校還在學VB6呀>< ，該跟老師說教新的啦~要不然就VB.NET，學那種超傳統的東西～...+_+....對未來幫助有限～如果要寫到ASP.NET(VB)又是不同觀念了～
若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

darkjack

  專　家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
39507 米
7樓
發表於 2015-7-29 06:27 PM|只看該作者
若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。
e77 發表於 2015-7-29 12:07 PM
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

哇咧~~學校還在學VB6呀>< ，該跟老師說教新的啦~要不然就VB.NET，學那種超傳統的東西～...+_+....對未來幫 ...

vb6 , MS 都已經擺明 不再支援 （好像從win 7 之後）
...
瀏覽完整內容，請先 註冊 或 登入會員
本人 都是寫 vb.net 如果看到本人的原創 請自備 .Net FrameWork 3.5
如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。
回頂部