|
类似IE地址栏的自动完成功能 2003-04-18 |
Option ExplicitPrivate Const SHACF_AUTOSUGGEST_FORCE_ON As Long = &H10000000Private Const SHACF_AUTOSUGGEST_FORCE_OFF As Long = &H20000000Private Const SHACF_AUTOAPPEND_FORCE_ON As Long = &H40000000Private Const SHACF_AUTOAPPEND_FORCE_...[全部内容] |
|
让messagebox自动消失 2003-03-31 |
利用多线程解决对话框自动消失的办法,虽然有点乱,但是完全正确,自己使用的时候把command1_click的执行动作封装成自己的函数就行了,运行过程,点command1,出现对话框,10秒后对话框消失。(因为我这个程序多次用于测试,所以没用的API声明太多了,去掉没用的就行了)...[全部内容] |
|
让messagebox自动消失 2003-03-31 |
利用多线程解决对话框自动消失的办法,虽然有点乱,但是完全正确,自己使用的时候把command1_click的执行动作封装成自己的函数就行了,运行过程,点command1,出现对话框,10秒后对话框消失。(因为我这个程序多次用于测试,所以没用的API声明太多了,去掉没用的就行了)...[全部内容] |
|
如何使Form的背景图随Form大小改变 2002-12-08 |
: 我在表单的 picture 属性设好一个图, 成为表单的背景图,: 但是当表单的大小拉大, 超过图案大小时, 就露出难看的空白,: 请问如何设定, 才能让背景图随表单的大小而 stretch (伸展开来) 呢 ?单纯显示图形用Image即可,而且用Image也正好可解决你的问题设定Image的Stretch...[全部内容] |
|
取得屏幕解析度 2002-12-08 |
x = Screen.Width \ Screen.TwipsPerPixelX y = Screen.Height \ Screen.TwipsPerPixelY...[全部内容] |
|
彩色BMP档转成灰度 2002-12-08 |
将RGB想成3D之X,Y,Z轴,则BMP的RGB为(r,g,b)与座标(Y,Y,Y)距离最小时的Y即为灰度值Y = 0.29900 * R + 0.58700 * G + 0.11400 * B 整数化Y = ( 9798*R + 19235*G + 3735*B) / 32768RGB(Y, Y, Y)就可以了需一个内有彩色图的PictureBox, CommandB...[全部内容] |
|
如何使Form的背景图随Form大小改变 2002-12-08 |
: 我在表单的 picture 属性设好一个图, 成为表单的背景图,: 但是当表单的大小拉大, 超过图案大小时, 就露出难看的空白,: 请问如何设定, 才能让背景图随表单的大小而 stretch (伸展开来) 呢 ?单纯显示图形用Image即可,而且用Image也正好可解决你的问题设定Image的Stretch...[全部内容] |
|
取得屏幕解析度 2002-12-08 |
x = Screen.Width \ Screen.TwipsPerPixelX y = Screen.Height \ Screen.TwipsPerPixelY...[全部内容] |
|
彩色BMP档转成灰度 2002-12-08 |
将RGB想成3D之X,Y,Z轴,则BMP的RGB为(r,g,b)与座标(Y,Y,Y)距离最小时的Y即为灰度值Y = 0.29900 * R + 0.58700 * G + 0.11400 * B 整数化Y = ( 9798*R + 19235*G + 3735*B) / 32768RGB(Y, Y, Y)就可以了需一个内有彩色图的PictureBox, CommandB...[全部内容] |
|
获取所有打印纸张格式的方法 2002-09-18 |
下面的代码演示在VB里如何获取与Windows操作系统打印机属性里一样多的打印纸张格式Private Sub Command1_Click() WQL = "Select * From Win32_Printer" Set objinst = GetObject("winmgmts:").ExecQuery(WQL) For Each obj In objinst...[全部内容] |