专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
原则上,只改这一次,下一次开机会还原,但如果需重开机,才会Update Registry中的设定,并重开机。 如果要永久设定其设定值,请将 b=ChangeDisplaySettings(DevM,0)改成 b=ChangeDisplaySettings(DevM,CDS_UPDATEREGISTRY) 注: DevM.dmBitsPerPel便是设定颜色数,其实应说每个Pixel要多少Bits来显示 4-->16色 8-->256色 16-->65536色以此类推 OptionExplicit PrivateDeclareFunctio [阅读全文] [PDF]
在用VB制作软件封面和界面时经常要用到三维字体,一般的方法是先用专门的软件(如Xara3d等)制作出三维字体的图片,然后再用图片框等控件显示出来。这样虽然简单,但其缺点有二:一是要额外增加控件和图片,这样势必会增加程序的大小;二是在VB中图片的加载速度不敢恭维。如能用VB直接编程制作出三维字体,岂不美哉!以下是本人的一点“小技”,请笑纳!先在VB中新建一个“工程”,然后在窗体上放置四个Command。以下是源程序:先声明如下“通用变量”:Dim posx, posy As Integer ´文字的显示位置Dim txtwidth As Int [阅读全文] [PDF]
sp; 一个简单的API语句可以实现更改菜单字体颜色:Private Declare Function SetSysColors Lib \"user32\" (ByVal nChanges As Long, lpSysColor As Long, lpColorvalues As Long) As LongPrivate Sub Form_Load()SetSysColors 1, 7, vbRed ´设置菜单字体红色(可选择 &H0 -----> &HFFFFFF 共16777216种颜色!)End SubPrivat [阅读全文] [PDF]
1 共3条 分1页