查看完整版本: 關於Msgbox的小問題( VB 2010 新手提問 )
頁: [1]

damhyogdgg 發表於 2014-10-22 09:11 PM

關於Msgbox的小問題( VB 2010 新手提問 )

本帖最後由 damhyogdgg 於 2014-10-23 07:32 PM 編輯

問題是  當 d<60 的時候  MsgBox顯示出的文字必須為紅色
並且是使用 If....then 的這個判斷式來作
目前我只有想到的只有:
        If avg < 60  then
這樣而已....

想請問各位VB的高手  關於這個判斷式 是要如何使用


以下是我的程式碼

4        Dim a, b, c, d, avg As Integer
5        a = Val(TextBox2.Text)
6        b = Val(TextBox3.Text)
7        c = Val(TextBox4.Text)
8        d = a + b + c
9        avg = (a + b + c) / 3
10      MsgBox("您的總分為:" & d & " ,您的平均分數:" & avg, , "成績結算")
...<div class='locked'><em>瀏覽完整內容,請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

darkjack 發表於 2014-10-23 07:46 PM

本帖最後由 darkjack 於 2014-10-23 07:47 PM 編輯

第一
你這個程式碼 應該是直接複製貼上...(不是用 VB 內的編譯器)

第二
不知道你是不是指 如下圖呢?







如果是~
請自己 用英文找關鍵字....

因為

1.
這個程式碼不是我寫的..是外國提供的(我自己搜尋的)

2.
只有 vb.net 版... VB6 版???也請自己尋找....(如果你會把vb.net 轉回去 vb6版本)

3.
程式碼算有些長度..且也剛好是我可以學習的地方...
如果你只是 複製貼上...你一定忘的很快

...<div class='locked'><em>瀏覽完整內容,請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

damhyogdgg 發表於 2014-10-23 08:53 PM

本帖最後由 damhyogdgg 於 2014-10-23 08:54 PM 編輯

darkjack 發表於 2014-10-23 07:46 PM static/image/common/back.gif
第一
你這個程式碼 應該是直接複製貼上...(不是用 VB 內的編譯器)


上面的程式碼是我自己打的 ( 因為我不想在打一次 所以把程式碼直接複製貼上 )
  但是我確實無法做出像你那樣的方法 就是把 MsgBox中的文字顏色改變
   謝謝大大的資訊!
...<div class='locked'><em>瀏覽完整內容,請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

darkjack 發表於 2014-10-24 08:48 PM

就請你自己 用 英文搜尋吧..
你想要的需求 不是不能達到
而是有些麻煩..要用一個 From 跟 一個 Class 去作...

cinta3344 發表於 2014-11-6 01:56 PM

想要彩色的messagebox就是自己刻,沒有懸念
<br><br><br><br><br><div></div>

無敵小泡泡 發表於 2015-1-1 02:15 AM

在程式碼的後方加上顏色的碼
頁: [1]