启动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 ExplicitPrivate 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编写一个小程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)