![](https://img-blog.csdnimg.cn/20201014180756926.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB学习心得
fanpeii
这个作者很懒,什么都没留下…
展开
-
VB 利用指针,来修改控件内容
VB 子函数指针调用来修改label1标签的内容Private Sub Form_Load()ASS (ObjPtr(Label1))End SubSub ASS(A1 As Long)Dim A As LabelCopyMemory ByVal VarPtr(A), A1, 4A.Caption = 1112End Sub指针函数不能弄错,不然会有出乎意料的错误原创 2010-08-21 12:57:00 · 1119 阅读 · 0 评论 -
发现一个非常好的的VB学习网站。www.newxing.com
<br />www.newxing.com 会经常上上看的。<br />原创 2010-08-27 21:42:00 · 11460 阅读 · 0 评论 -
VB listview 控件 简单操作
listview的简单操作如何给listview的某一行,加上颜色间隔 设置一个颜色如何设置字体的颜色的类型。原创 2010-08-27 17:40:00 · 3192 阅读 · 1 评论 -
vb 16进制 转 unicode
Private Sub Form_Load()Dim a As StringDim as1() As StringDim ab() As Bytea = "B1 82 45 9B 00 00 00 00"as1 = Split(a, " ")ReDim ab(UBound(as1))For i = 0 To UBound(as1) - 1ab(i) = CByte(Val("&h" & as1(i)))Nexta = abEnd Sub原创 2010-09-20 00:52:00 · 1141 阅读 · 0 评论 -
WM_COPYDATA VB VC用法
VC中发送消息程序#includetagCOPYDATASTRUCT my_copydata;HWND my_hwd;char buff[50]="my love hahaha!";void send_hook_pack(DWORD *pack_buff,DWORD packsize){my_hwd=FindWindow(NULL,"Target");//找到目标原创 2011-10-23 11:10:01 · 2493 阅读 · 0 评论 -
vb 遍历文件夹 与遍历文件
Public Sub Search_wenjian() '遍历文件 获得文件名称Dim sPath As String'查找文件夹sPath = Dir(path, vbDirectory) '查找第一个文件夹Do While Len(sPath) '循环到没有文件夹为止 If Left(sPath, 1) <> "." Then '为了防止重复查找 If G原创 2012-02-20 20:38:42 · 18443 阅读 · 3 评论