We are Just Computer Freaker
 
IndeksPencarianPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

Share | 
 

 Font - Add-Ins Memanipulasi font pada bentuk atau kontrol

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Mhc_Shadow
Neophyte
Neophyte


Jumlah posting : 156
Join date : 10.04.11

PostSubyek: Font - Add-Ins Memanipulasi font pada bentuk atau kontrol   Sat 8 Feb 2014 - 14:49

Berikut contoh kode nya

Code:
Dim currentform As Object
Dim c As Object
Set currentform = gobjIDEAppInst.ActiveProject.ActiveForm
Set c = currentform.ControlTemplates.Add("label")
With c
.Properties("Caption") = "Xtreme Software. The Creators of Digital Poetry!"
.Properties("Font")!Bold = True
.Properties("Font")!Italic = True
.Properties("Font")!Strikethrough = False
.Properties("Font")!Underline = True
.Properties("Font")!Name = "Arial"
.Properties("Font")!Size = 10
.Properties("Autosize") = True
.Properties("left") = (currentform.Properties("width") - .Properties("width")) / 2
End With
Kembali Ke Atas Go down
 
Font - Add-Ins Memanipulasi font pada bentuk atau kontrol
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» master rem Brembo R1 atau Brembo RCS15
» lebih enak settingan basah atau settingan kering yak?
» Fitur baru Readmore pada blogspot!
» Pasang comment Union pada commentar Blog mu
» perkenalan newbie biasa seperti yang lain pada umumnya

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: