飘云阁

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 2334|回复: 1

VB编程的一些基础的问题

[复制链接]
  • TA的每日心情
    开心
    2015-7-21 08:38
  • 签到天数: 3 天

    [LV.2]偶尔看看I

    发表于 2005-2-15 23:15:43 | 显示全部楼层 |阅读模式
    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)
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    2015-7-21 08:38
  • 签到天数: 3 天

    [LV.2]偶尔看看I

     楼主| 发表于 2005-2-15 23:18:11 | 显示全部楼层

    用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 
    PYG19周年生日快乐!
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    快速回复 返回顶部 返回列表