Dim str As String
Private Sub Command1_Click()//剪切
str = Text1.SelText
Text1.Text = ""
End Sub
Private Sub Command2_Click()//复制
str = Text1.SelText
End Sub
Private Sub Command3_Click()//粘贴
Text1.Text = str
End Sub
剪切之后，无法粘贴，请高� ......
请问在中国移动开一个企业短信平台，用VB写短信群发的时候都需要中国移动提供什么！
接口文档。
短信猫
对不起，我没明白，是不是称动会给一个短信猫和一份接口文档？
开通了企业短信平台,是MAS机的话就不需要短信猫,只需要接口文档.直接在企业短信平台上设置好接口与服务,vb就可以编程序了
......
蔡鸟编程中遇到了个问题，代码如下
Private Sub CommandButton1_Click()
Dim test1 As Long
test1 = &H7999
test2 = &H8000
Debug.Print "test1:" & test1
Debug.Print "test2:" & test2
End Sub
结果：
test1:31129
test2:-32768
� ......
之前见过一个shell调用cacls.exe的,但是没能成功,运行后只一闪而过,没效果.
哪位大哥知道这样类似语句可以实现这功能呢?
API?
Private Sub Command1_Click()
Shell "c:\windows\system32\calc.exe", vbNormalFocus
End Sub
加个变量呢?例如我另一个语句取得了文件的名字是变量 ......
默认的保存格式是ANSI的，我需要保存为Unicode格式。不要手动去更改的
帮顶
用二进制方式保存。
Open "c:\1.txt" For Binary As #1
用这种方式打开>取数据>保存即可
引用
Open "c:\1.txt" For Binary As #1
用这种方式打开>取数据>保存即可
对！顶
......
若： 有SQL 语句 select * from admin where id='"& text1.text &"' and tel='"& text2.text &"' and no='"& text3.text &"'
怎么把这语句给拆分了。 写成 select * from admin where id='"& text1.text ......
最新文章 : vb