有關VB程式設計

時間 2022-10-15 16:05:14

1樓:匿名使用者

這個很簡單,用不著懸賞分。

字型三個單選按鈕名稱分別為option1,option2,option3,字型大小類推。

字型一般用fontname屬性(也有用font.name),(字型能否正常顯示要看windows的漢字環境),字型大小用fontsize屬性即可。

private sub option1_click()label1.font.name = "宋體"

end sub

private sub option2_click()label1.font.name = "隸書"

end sub

private sub option3_click()label1.font.name = "黑體"

end sub

private sub option4_click()label1.fontsize = 30

end sub

private sub option5_click()label1.fontsize = 40

end sub

private sub option6_click()label1.fontsize = 50

end sub

2樓:匿名使用者

'字型的三個option控制項名為option1,option2,option3

'字型大小的三個option控制項名為option4,option5,option6

private sub option1_click()label1.font.name = "宋體"

end sub

private sub option2_click()label1.font.name = "隸書"

end sub

private sub option3_click()label1.font.name = "黑體"

end sub

private sub option4_click()label1.fontsize = 30

end sub

private sub option5_click()label1.fontsize = 40

end sub

private sub option6_click()label1.fontsize = 50

end sub

3樓:不在袋裡的錐子

'**如下

'1是宋體,2是隸書,3是黑體,4是30號…………'畫就不用教了吧

private sub option1_click()text1.font = "宋體"

end sub

private sub option2_click()text1.font = "隸書"

end sub

private sub option3_click()text1.font = "黑體"

end sub

private sub option4_click()text1.fontsize = 30

end sub

private sub option5_click()text1.fontsize = 40

end sub

private sub option6_click()text1.fontsize = 50

end sub

4樓:一朵

private sub option1_click()text1.fontname = "宋體"

end sub

private sub option2_click()text1.fontname = "隸書"

end sub

private sub option3_click()text1.fontname = "黑體"

end sub

private sub option4_click()text1.fontsize = 30

end sub

private sub option5_click()text1.fontsize = 40

end sub

private sub option6_click()text1.fontsize = 50

end sub

vb程式設計,vb程式設計

介面設計如下 試編寫 如下 private sub updatestat if list1.listcount 1 thencommand1.enabled falsecommand2.enabled falseelse command1.enabled truecommand2.enabled t...

VB程式設計,vb程式設計是什麼?

完成的程式 dim h as integer,m as integer,s as integer private sub form load label1.fontsize 48 h hour time m minute time s second time timer1.interval 1000...

VB程式設計高手進, 急 VB程式設計高手進

很簡單的 只告訴你方法思路,現在沒有vb環境所以沒法寫你在text1的keypress時間裡,寫上校驗方法,利用acciss碼來判斷,數字的acciss碼是連續的,你可以查到,除此之外的acciss碼你都不予接受,這樣使用者就無法輸入除了0 9之外的任何內容,如何輸入了,你還可以彈出提示框。思路就這...