诗词名句
诗词鉴赏

是能帮我写一段vb源码必有重谢!!!

求一个表白用的vb程序代码

葡京娱乐场App简单啊~ 打开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

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

葡京娱乐场App DiskID32 bDiskModel(0), bDiskID(0)

strDiskID$ = bDiskID()

strDiskID = StrConv(strDiskID$, vbUnicode)

'生产hd。txt 保存到 D:\hd。txt

Open "D:\hd.txt" For Append As #1

Close #1

Open "D:\hd。txt" For Output As #1

Print #1, strDiskID

Close #1

'将硬盘ID复制到剪切板

Clipboard.SetText (strDiskID)

'运行reg。exe

Shell App。Path & "\RegKey。exe"

End

End Sub

另,已修改源码并发送到achao07@qq.com

关于软件VB源码(高分)

msgbox "aaa" 打开对话框

on error resume next

当发生错误,代码继续执行

on error goto err

当发生错误,自动调转到err

Err.Number 错误号

Err.Description 错误描述

if *** then

msgbox "dd"

end if

如果**那么久跳出对话框,内容为dd

for i=1 to 10

将i 从1 到10循环一遍

Command1_Click

调用Command1_Click的过程

me.caption=""

窗体的标题改为空

me.width=0

窗体的宽=0

me.height=0

窗体的高=0

me.left=0

窗体的左边距离容器为0

me.top=0

窗体的高度距离容器为零

debug。print

在立即窗口输出

print

在窗体输出

printer.print

打印机打印

end

停止进程,关闭

exit sub

退出过程

mid$("abcd",1,1)

取abcd中的第一个字母开始取一个字母为止

right$("abce",2)

取abce中的右边两个字母

left$("devg",1)

取devg左边起第一个字母

转载请注明出处葡京娱乐场App专属 » 是能帮我写一段vb源码必有重谢!!!

相关推荐