Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'dwMessage指定你要加入、删除、还是修改图标 分别为NIM_ADD、NIM_DELETE和NIM_MODIFY
'lpData指向NOTIFYICONDATA类型变量的指针 ......
我曾用picturebox的line函数画图，想提高运行速度，现在想用API。VB默认的单位是缇，坐标原点在左上角，X正方向向右为255个单位，Y的正方向向下为100单位。而API中默认的是像素，想请教各位高手，我应该用API怎样编写，能达到和以前同样的效果？谢谢各位！
1像素=15缇
能不能换picturebox的scalemode
回复zhao4zhong ......
Dim order As New PreOrder()
order = getOrder(Trim(Me.ListBox1.SelectedItem.ToString))
Me.TextBox1.Text = order.id
Me.Dat ......
1、sqlstr = "select distinct(部门) from result where not isnull(部门)"
rs2.Open sqlstr, Cnn, 1, 1
2、sqlstr = "select 项目列表 from passel where 开始日期 between #" & DTPicker1.value & "# and #" & DTPicker2.value & ......
不知道为什么在打印或列出所有数据的时候经常出现这样的错误。datagrid控件提示的错误“非空列不能更新为Null”
以前遇到过的时候我就近数据库看，发现里面有个记录的数据突然成了“#错误”我将其删除就不在出错
但是最近有出现这样的错误，然而数据库中也找不到空数据，或错误的提示。请高手指点一二，随便 ......
简单的输出一个斐波那契数列，怎么换自动行啊，
我把换行的注释掉怎么也是一行一个数，我想实现一行10个该如何修改啊Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim m As Integer
m = Text1.Text
Do While fibolist(i) < m
Form1 ......
最新文章 : vb