如何向VB里面添加资源

如何向VB里面添加资源,第1张

1、添加资源文件编辑器,

启动VB60的IDE集成环境,新建一个工程。点选菜单“Add -Ins”下的“Add -in Manager”,在d出的对话框的列表框中选择“VB Resource (RES) Editor”,单击“OK“后退出对话框。这样在“Tools”菜单栏中就有一项“Resource Editor”了。打开这个工具就可以进行资源文件的编辑了。

2、编辑资源文件

在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源,在进行编辑时,点击相应的图标就可以添加资源了。

编辑资源的方法也很容易,以添加为例看一看添加位图的方法:

点击添加位图按钮,在d出的对话框中选择一个位图文件,单击“OK”后,位图的添加就完成了,在这里要注意属性按钮,点击它以后,可以选择请语言版本并输入资源的ID号,这个ID号是标识一类资源的唯一编号,必须记住资源的ID号,以使在应用程序中调用。编辑好资源后,关闭资源编辑器,资文件自动加入新建的工种内。另外,也必须将资源文件保存。其它资源的编辑方法也大体上一样。

3、使用资源文件,在应用程序中调用资源文件与直接使用资源基本上是一致的。对了,在一个工种中只能保存一个资源文件,在使用资源文件之前,请必须保证资源已经加入到资源文件中了。

调用资源文件中资源的函数有:

LoadResString 返回一个文本字符串。语法:LoadResString(index) index必需是一个整数,它用来指定资源文件中数据的标识符(即经常提到的ID号),如果ID号为1的资源保留给应用程序图标。

LoadResPicture 用以从资源 (res) 文件装载位图、图标或光标。它的语法:

LoadResPicture(index, format)

LoadResPicture 函数的语法包含下列部分:

参数 描述

index 一个整数或字符串,它用来指定资源文件中数据的标识 符 (ID) 。

ID标识符为 1 的资源保留给应用程序的图标。

format 必需的。一个数值或常数,如下列“设值"中所描述的,

指定返回数据的格式。

用于 format 的设置值有:

常数 值 描述

vbResBitmap 位数 0 位图资源

vbResIcon 图标 1 图标资源

vbResCursor 2 光标资源

说明:可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。

LoadResData 返回一个Byte数组,用以从资源 (res) 文件装载若干可能类型的数据。语法为:

LoadResData(index, format)

LoadResData 函数的语法包含下列部分:

部分 描述

index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识 符 (ID)。ID 标识为 1 的资源保留给应用程序的图标。

Format 必需的。一个数值,它用来按照下列“设置值"中的描述,指定返 回数据的原始格式。该数值也可以是用户定义资源的字符串名。

设置值 用于 format 的设置值有:

设置值 描述

1 光标资源

2 位图资源

3 图标资源

4 菜单资源

5 对话框

6 字符串资源

7 字体目录资源

8 字体资源

9 加速键表

10 用户定义资源

12 群组光标

14 群组图标

说明:LoadResData 从资源文件装载的数据可以达到 64K。

最后我们用一个简单的例子来说明这几个函数的用法:

(1)建立一个窗体,在窗体上放置三个按钮,一个框用来显示、图标。其属性如图2所示。

按照前面讲述的方法添加资源文件编辑器并建立工程文件,里面包含一个字符串,位图、图标、光标和一个自定义的资源。

程序代码如下所示:

Private Sub cmdLoadData_Click()

Dim tt As Byte

End Sub

Private Sub cmdLoadPicture_Click()

picTestPicture = LoadResPicture(101, 1)

'如何为0表示位图,为2表示光标

End Sub

Private Sub cmdLoadstring_Click()

Dim str As String

str = LoadResString(101)

MsgBox str

End Sub

Option Explicit

Private Sub Form_Load()

    Randomize

    Label1Caption = Int((Rnd  (999999 - 100000 + 1)) + 100000)    '生成100000-999999之间的随机数

    Timer1Interval = 1000  '一秒一次

    Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static n As Integer

    n = n + 1

    If n = 60 Then      '一秒一次,累加到60此即60秒

        n = 0

        Randomize

        Label1Caption = Int((Rnd  (999999 - 100000 + 1)) + 100000)

    End If

End Sub

有问题请追问,,加油!

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

TextText = "Visual Basic程序设计"

Command1Caption = "结束"

TextLeft = 0: TextTop = 0: TextWidth = 05 Form1Width

TextHeight = 05 Form1Height

a = Form1Width - Command1Left

b = Form1Height - Command1Top

End Sub

Private Sub Form_Resize()

TextLeft = 0: TextTop = 0: TextWidth = 05 Form1Width

TextHeight = 05 Form1Height

Command1Left = Form1Width - a

Command1Top = Form1Height - b

End Sub

注意,各变量名,控件名保持一致,你题目中的文本框名称为text

VBS文件手机是不能打开的,但可以将它嵌入到网页文件上,有的手机浏览器是支持HTML文件的,但是VBS代码中的大部分在手机上都不能用,如调用外部程序什么的,因为那是Windows的代码,不过手机可以支持msgbox、inputbox等函数,嵌到网页中的方法是新建一个文本文档,扩展名改为html,在里面输入<script language="vbscript"></script>,输入vbs代码时在两个括号中间输入,不过可能和vbs文件不太一样,如

<script language="vbscript">msgbox "哈哈!"</script>

不过手机还是推荐用JS脚本,举个例,d出对话框

<script language="vbscript">alert("哈哈!");</script>

如果你有能力你可以直接把做出的html文件上传到一个域名上,然后在手机直接输入网址打开,或者文件传到手机上打开

测试你的手机浏览器是否支持JS插件:在浏览器地址栏上输入

javascript:alert("哈哈!")

然后回车,如果能d出对话框说明支持JS

VBS的方法:输入

vbscript:msgbox ("哈哈!")

回车,同上

望采纳

这个问题一般是文本编码引起的。

解决办法:

下载文本编辑器比如Notepad++,对文本进行转码。

我在Windows 8上测试,转码为ANSI编码即可执行成功。

---

为什么有时候用记事本写vbs程序又可以呢?

因为Windows在生成UFT-8格式的文本文件时,自作主张在文件中加了点东西,而VBS已经很久没有更新了。所以,一不小心就出现“800A0408”错误。

楼主您好!

代码如下:

Option Explicit

Private Sub Command1_Click()

    Dim n(7) As Double

    Dim k(3) As Double

    k(3) = 1

    Dim j As Integer

    For j = 1 To 7

        n(j) = Val(Controls("Text" & CStr(j))Text)

    Next j

    For j = 1 To 7

        k(1) = k(1) + n(j)

        k(2) = k(2) - n(j)

        k(3) = k(3)  n(j)

    Next j

    MeText8Text = "7个数的和为:" & k(1) & vbCrLf & _

                    "7个数的差为:" & k(2) & vbCrLf & _

                    "7个数的乘积为:" & k(3)

End Sub

Private Sub Command2_Click()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

以上就是关于如何向VB里面添加资源全部的内容,包括:如何向VB里面添加资源、用VB制作小程序、用VB编写一个小程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/9516744.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-29
下一篇 2023-04-29

发表评论

登录后才能评论

评论列表(0条)

保存