求助：求高人做个VB小程序，最简单的那种百分悬赏

Private Sub Command1_Click()

'存储文本

Open AppPath & "\ctext" For Append As #1

Print #1, Text1Text

Close #1

End Sub

Private Sub Combo1_Change()

If Combo1List(Combo1ListIndex) = "条件" Then

Text1Text = "内容"

End If

End Sub

Private Sub Combo1_LostFocus()

Combo1AddItem Combo1Text

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbBlack

End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = &H0&

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbGreen

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbWhite

End Sub

Private Sub Timer1_Timer()

If Time = "07:00:00" Then MsgBox "cccc"

End Sub

我这边回不了你的问题,不能回答,也不能发文件

你发你发油箱,我从邮箱或者QQ发给你

快

是不是引用对象名称错了 textbox1text  改写成 text1text,看名称是是什么就写什么对象引用名 ，在把textbox1text 装换成 数值类型 CDbl(textbox1text)

Dim ws As Object

Set ws = CreateObject("wscriptshell")

MyAppID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORDEXE", 1) ' 运行 Word 你的路径自己写

AppActivate MyAppID ' 激活word

ClipboardSetText "正常"

wsSendKeys "^v"

以上就是关于求助：求高人做个VB小程序，最简单的那种 百分悬赏全部的内容，包括:求助：求高人做个VB小程序，最简单的那种 百分悬赏、急！急！急！VB新手，一个小小程序，出现问题。其他信息: 从字符串“1.023.320”到类型“Double”的转换无、VB新手，我现在想做个用VB打开WORD，并在WORD文本框内写入内容“正常”的小程序，怎么写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！