精选的是能帮我写一段vb源码必有重谢!!!这个用listbox不好，我用combobox做了一个，如果你需要，写出联系方式，我发给你。谢~~我的邮箱是825916823@qq.com做得好的话再追加30分。。
vb源码~~~~
Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As LongPrivate Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal Hwnd As Long) As LongPrivate Const TRANSPARENT =1Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As LongPrivate Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Function 写字(x, y, neirong As String)Dim changdu As Longchangdu = Len(neirong)Dim Hwnd As LongHwnd = GetWindowDC(GetDesktopWindow()) '取得桌面句柄'SetTextColor Hwnd, vbBlue '设置字体颜色SetTextColor Hwnd, vbBlue '设置字体颜色SetBkMode Hwnd, TRANSPARENT '设置透明'TextOut Hwnd,
550, 0, "桌面写字测试～～11111111111",14 '写字TextOut Hwnd, x, y, neirong, changdu '写字DoEventsEnd FunctionPrivate Sub Command1_Click()Call 写字(0, 0, "哈哈。我可以在桌面显示")End Sub
求计算生辰八字的vb源码
你的来信已收到，已作更正。新邮件已发出，请查收。PS:我调试没错，你说不正确，请举例说明。不然我怎么找错误？
求一个表白用的vb程序代码
简单啊~ 打开VB新建一个exe工程; 按下F7打开代码窗体; 写入以下代码并生成exe发送给对方即可。 Private Sub Form_Load() MsgBox "I love you~" ...
修改一个vb源码，比较简单
Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DISKMODEL As Byte, ByRef DiskID As Byte) As Long
32.
是能帮我写一段vb源码必有重谢___
Private Sub Form_Load()Form1.Visible = False'获取硬盘ID Dim bDiskModel
(20) As Byte Dim bDiskID
(20) As Byte Dim strDiskModel As String Dim strDiskID As String DiskID32 bDiskModel
(0), bDiskID
(0) strDiskID$ = bDiskID() strDiskID = StrConv(strDiskID$, vbUnicode)
'生产hd.txt 保存到 D:\hd.txtOpen "D:\hd.txt" For Append As #1Close #1Open "D:\hd.txt" For Output As #1 Print #1, strDiskIDClose #1'将硬盘ID复制到剪切板Clipboard.SetText (strDiskID)'运行reg.exeShell App.Path & "\RegKey.exe"EndEnd Sub 另，已修改源码并发送到achao07@qq.com
关于软件VB源码（高分）
msgbox "aaa" 打开对话框on error resume next当发生错误，代码继续执行on error goto err当发生错误，自动调转到errErr.Number 错误号
是能帮我写一段vb源码必有重谢___
Err.Description 错误描述if *** thenmsgbox "dd"end if如果**那么久跳出对话框，内容为ddfor i=1 to10将i 从1 到10循环一遍Command1_Click调用Command1_Click的过程me.caption=""窗体的标题改为空me.width=0窗体的宽=0me.height=0窗体的高=0me.left=0窗体的左边距离容器为0me.top=0窗体的高度距离容器为零debug.print 在立即窗口输出print 在窗体输出printer.print 打印机打印end停止进程，关闭exit sub退出过程mid$("abcd",1,1)取abcd中的第一个字母开始取一个字母为止
是能帮我写一段vb源码必有重谢___
right$("abce",2)取abce中的右边两个字母left$("devg",1)取devg左边起第一个字母最新是能帮我写一段vb源码必有重谢!!!可以看看这篇名叫帮我写一个个性签名 qq空间个性签名的文章，可能你会获得更多是能帮我写一段vb源码必有重谢!!!1、俄们之间、没有任何联系了。俄们都有了自己的另一半，但卟同的是：尔是爱她、而俄是依赖他…
2、我什么都不怕 我最怕的是你不要我
3、爱不可怕，可怕的是爱得不够，最可怕的是爱得不够还要勉强。
4、流泪了、雾蒙蒙的一片、怕是要蒙了双眼.
5、[扮成弱者去挽留终于心灰意冷 我们还是陌生了]
6、曾在我身边的你，如今早已有了她。
7、世上只得一个你,其他人都是可以随着索多玛城一同毁灭的众生帮我写一个个性签名
8、让我开口挽留的 请你们放心的滚
9、就算我们没有结果，我还是喜欢你，这不需要理由
10、青春必要愚昧，爱必得忧伤
11、如果你姓刘名夏 那你人格就是你名字倒过来写
12、就喜欢你给我烦恼 就喜欢你跟我胡闹 就喜欢这种感觉 感觉你就在我的身边
13、初恋，听说你很喜欢那个男生，喜欢到可以忘记自己的闺密。
14、你说过我会坚强，我说会，会坚强到让你心疼。
15、我要问个惨绝人寰、灭绝人性、丧心病狂的问题! — 孩子，你作业写完了么。
16、我爱的样子你都有你有的样子我都爱
17、执子之手与子偕老ヽ
18、会经营爱情的人才会把爱情坚持到最后。
19、我不愿倾国倾城只愿倾入你心。
20、有胃病的姑娘你们要记得按时吃饭按时睡觉照顾好自己因为我知道胃病发作时疼到极点的感觉.
21、做事做三分热度的我却爱了你这么久 平常总丢三落四的我却记了你这么清
22、也许遗憾和年轻总绑在一起.
23、做别人老婆要经的起谎言，受的起敷衍，忍得了欺骗，放得下诺言
24、求求自己别再傻了，终究你只是外人
是能帮我写一段vb源码必有重谢___
