vb點虐 顏色設置 vbs顏色代碼

vb點虐 怎么實現(xiàn)單擊數字區(qū)域的按鈕使按鈕變紅色，單擊運算符按鈕變藍色同時數字區(qū)按鈕還原？緊急在線等…

您好，這種方法可以通過按鈕的MouseDown和MouseUp事件來實現(xiàn)，比如說，當單擊按鈕RedColor（RedColor為這個按鈕的Name屬性的屬性值）的時候，要使按鈕的顏色變成紅色，這可以在代碼視圖中的控件選擇下拉列表中選擇RedColor這個控件，然后在右邊的事件下拉列表中選擇MouseDown事件（當按下鼠標時發(fā)生），這時，Visual Studio會自動生成如下代碼：

創(chuàng)新互聯(lián)建站憑借在網站建設、網站推廣領域領先的技術能力和多年的行業(yè)經驗，為客戶提供超值的營銷型網站建設服務，我們始終認為：好的營銷型網站就是好的業(yè)務員。我們已成功為企業(yè)單位、個人等客戶提供了成都網站設計、成都網站制作服務，以良好的商業(yè)信譽，完善的服務及深厚的技術力量處于同行領先地位。

Private Sub RedColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseDown

End Sub

接下來就在當前生成的代碼中寫入如下代碼：

RedColor.BackColor = Color.FromArgb(255, 0, 0)

這句代碼的作用是利用Color下的FromArgb方法來設置RGB顏色參數，在RGB顏色系統(tǒng)中，R代表紅色，G代表綠色，B代表藍色，根據這三種顏色的不同程度的調和，就會得到不同的顏色，如果您要得到深色的天藍色，則可以設置FromArgb(0, 191, 255)，這個顏色轉換為HTML中的RGB顏色就是#00BFFF。

當然顏色還原最好是寫在MouseUp事件里面，這樣就不必在單擊其他按鈕時來還原上一次按下的按鈕的顏色，在這里，為了方便描述，我們假設按鈕的默認顏色為白色，也就是FromArgb方法設置為FromArgb(255, 255, 255)的時候，所標示的顏色就是白色

所以選擇了RedColor按鈕的MouseUp事件后，Visual Studio會自動生成下列代碼：

Private Sub RedColor_MouseUp(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseUp

End Sub

MouseUp的含義是當鼠標彈起時發(fā)生，所以在這個事件就可以設置按鈕顏色的還原，即添加下列代碼來實現(xiàn)：

RedColor.BackColor = Color.FromArgb(255, 255, 255)

當然，這就編寫好了一個按鈕按下時變色，回彈時還原的功能，至于另外一個按鈕的功能，這與這個按鈕的功能一樣，只是代碼有一些細微的差別而已，假設這個按鈕的Name屬性的屬性值為BlueColor，相應的代碼對應如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(0, 0, 255) '藍色的FromArgb

End Sub

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

另外，為了避免代碼的冗余，可以將RedColor和BlueColor的MouseUp事件進行合并，這合并后的代碼如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

RedColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

當然，這個你只要分析了控件事件代碼的基本結構，一切就一目了然了，控件事件代碼的基本結構如下：

[作用域] Sub 事件名([參數列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]

[事件代碼區(qū)域]

End Sub

如果此回答對您有幫助，別忘了采納哦，如果沒有解決您的問題，您可以在互聯(lián)網上尋找更多關于此問題的解決方案，謝謝！

VB點虐 如何更改窗體標題欄顏色？

這東西改不了，要想改的話要在系統(tǒng)顯示設置里修改主題。

不過如果想做的漂亮些，可以去網上找代碼把整個窗體改成藍色（隨便一種顏色）然后用代碼把窗體藍色部分扣去，可以PS一個窗體圖片，插到窗體上，這樣這個窗體藍色部分都被扣去了（圖片里的藍色無法扣去）只能看見一張圖片，可以在上面加控件。

VB.NET設置屏幕分辨率、顏色位數、刷新率 實例代碼

這篇文章介紹了VB.NET設置屏幕分辨率、顏色位數、刷新率

實例代碼，有需要的朋友可以參考一下

復制代碼

代碼如下:

Private

Declare

Function

GetDeviceCaps

Lib

"gdi32"

(ByVal

hdc

As

Long,

ByVal

nIndex

As

Long)

As

Long

Private

Declare

Function

ChangeDisplaySettings

Lib

"user32"

Alias

"ChangeDisplaySettingsA"

(lpDevMode

As

Any,

ByVal

dwflags

As

Long)

As

Long

Private

Const

CCDEVICENAME

As

Long

=

32

Private

Const

CCFORMNAME

As

Long

=

32

Private

Const

DM_BITSPERPEL

As

Long

=

H40000

Private

Const

DM_PELSWIDTH

As

Long

=

H80000

Private

Const

DM_PELSHEIGHT

As

Long

=

H100000

Private

Const

DM_DISPLAYFLAGS

As

Long

=

H200000

Private

Const

DM_DISPLAYFREQUENCY

=

H400000

Private

Const

CDS_FORCE

As

Long

=

H80000000

Private

Const

BITSPIXEL

As

Long

=

12

Private

Const

HORZRES

As

Long

=

8

Private

Const

VERTRES

As

Long

=

10

Private

Const

VREFRESH

=

116

Private

Type

DEVMODE

dmDeviceName

As

String

*

CCDEVICENAME

dmSpecVersion

As

Integer

dmDriverVersion

As

Integer

dmSize

As

Integer

dmDriverExtra

As

Integer

dmFields

As

Long

dmOrientation

As

Integer

dmPaperSize

As

Integer

dmPaperLength

As

Integer

dmPaperWidth

As

Integer

dmScale

As

Integer

dmCopies

As

Integer

dmDefaultSource

As

Integer

dmPrintQuality

As

Integer

dmColor

As

Integer

dmDuplex

As

Integer

dmYResolution

As

Integer

dmTTOption

As

Integer

dmCollate

As

Integer

dmFormName

As

String

*

CCFORMNAME

dmUnusedPadding

As

Integer

dmBitsPerPel

As

Integer

dmPelsWidth

As

Long

dmPelsHeight

As

Long

dmDisplayFlags

As

Long

dmDisplayFrequency

As

Long

End

Type

Private

Sub

cmdChangeDesktopMode_Click()

Dim

DM

As

DEVMODE

With

DM

.dmPelsWidth

=

CInt(txtNewWidth.Text)

.dmPelsHeight

=

CInt(txtNewHeight.Text)

.dmBitsPerPel

=

CInt(txtNewColor.Text)

.dmDisplayFrequency

=

CInt(txtNewFreq.Text)

.dmFields

=

DM_PELSWIDTH

Or

DM_PELSHEIGHT

Or

DM_BITSPERPEL

Or

DM_DISPLAYFREQUENCY

.dmSize

=

LenB(DM)

End

With

If

ChangeDisplaySettings(DM,

CDS_FORCE)

Then

MsgBox

"錯誤!不支持此模式！"

End

If

End

Sub

Private

Sub

Form_Load()

txtOldWidth.Text

=

GetDeviceCaps(Me.hdc,

HORZRES)

txtOldHeight.Text

=

GetDeviceCaps(Me.hdc,

VERTRES)

txtOldColor.Text

=

GetDeviceCaps(Me.hdc,

BITSPIXEL)

txtOldFreq.Text

=

GetDeviceCaps(Me.hdc,

VREFRESH)

End

Sub

分享題目：vb點虐 顏色設置 vbs顏色代碼
URL分享：http://muchs.cn/article40/ddiecho.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供品牌網站建設、微信小程序、App設計、外貿建站、商城網站、網站收錄

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)

h5響應式網站建設