VB编程的一些基础的问题
Microsoft Windows 操作系统通过给每一个窗口指定一个唯一的标识号(窗口句柄或 h Wnd)来管理所有的窗口。操作系统连续地监视每一个窗口的活动或事件的信号。事件可以通过诸如单击鼠标或按下按键的操作而产生，也可以通过程序的控制而产生，甚至可以由另一个窗口的操作而产生。你可以在很多API函数的参数中看到这个属性。Q :--请问在VB中怎样声明全局变量
Re:
用Global语句，方法是先新建一个标准模块Moudle1，然后在其中声明全局变量。举个例子，如果我们要把“a”声明为全局变量，则使用如下的语句即可：
Global a As Integer
然后我们就可以在整个程序中使用这个变量了
Q :--在vb里能不能把wav文件加到exe文件里？怎么做？
Re:
1、文字资源的定义格式
STRINGTABLE
BEGIN 8001，"your string1" 8002, "your string2"
END
其中8001、8002是文字编号，调用方法如下：
s=loadresstring(8001)
2、rc.exe文件刚安装vb时好象没有，得到vb的安装盘上找，并且要同时把rcdll.dll文件 拷贝下来
3、其他资源调用的方法
set image1.picture=loadrespicture("resource",vbresbitmap)
set me.icon=loadrespicture("earth",vbresicon)
set me.mouseicon=loadrespicture("bigpoint",vbrescursor)
用VB6.0编写手机短信发送
在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。Public Function chg(rmsg As String) As String
Dim tep As String
Dim temp As String
Dim i As Integer
Dim b As Integer
tep = rmsg
i = Len(tep)
b = i / 4
If i <> b * 4 Then
b = b - 1
tep = Left(tep, b * 4)
Else
tep = Left(tep, b * 4)
End If
chg = ""
For i = 1 To b
temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)
chg = chg & ChrW(CInt(Val(temp)))
Next i
End Function
页:
[1]