请问这段程序是什么意思

WANGDATAN 2003-05-24 04:20:31
我在一个帖子里看到有一段这样的程序
不好意思我初学VB以前没见到过
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmbackup
Caption = "备份"
ClientHeight = 3540
ClientLeft = 3015
ClientTop = 2490
ClientWidth = 4890
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3540
ScaleWidth = 4890
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 1440
TabIndex = 6
Top = 1440
Width = 1815
_ExtentX = 3201
_ExtentY = 450
_Version = 393216
Appearance = 1
Min = 5
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 4200
Top = 3000
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 375
Left = 1680
TabIndex = 1
Top = 2760
Width = 975
End
Begin VB.CommandButton Command1
Caption = "备份"
Height = 375
Left = 1680
TabIndex = 0
Top = 2040
Width = 975
End
Begin VB.Label Label4
Caption = "数据库备份成功请退出"
Height = 495
Left = 1440
TabIndex = 5
Top = 1200
Visible = 0 'False
Width = 1815
End
Begin VB.Label Label3
Caption = "秒"
Height = 255
Left = 1440
TabIndex = 4
Top = 720
Width = 255
End
Begin VB.Label Label2
Caption = "5"
Height = 255
Left = 1320
TabIndex = 3
Top = 720
Width = 255
End
Begin VB.Label Label1
Caption = "剩余时间:"
Height = 255
Left = 360
TabIndex = 2
Top = 720
Width = 975
End
End
Attribute VB_Name = "frmbackup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim x As Integer
Dim y As Integer
这个帖子是:http://expert.csdn.net/Expert/topic/1536/1536888.xml?temp=.3664514
那位高手帮我注释一下这段程序
谢谢
...全文
92 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
polarwyp 2003-05-24
  • 打赏
  • 举报
回复
在这段代码的顶部加上一行“VERSION 5.00”保存成frm打开就是窗体了
WANGDATAN 2003-05-24
  • 打赏
  • 举报
回复
请问我把这段代码复制到文本编辑器中然后以.FRM格式保存到磁盘
显示的文件图标是一个窗体的图标可是双击打开却变成一个模块
这是为什么
chenyu5188 2003-05-24
  • 打赏
  • 举报
回复
这是.frm文件中的内容
bydisplay 2003-05-24
  • 打赏
  • 举报
回复
确实如此
qqqdong 2003-05-24
  • 打赏
  • 举报
回复
将.frm的文件使用 文本编辑器 打开就可以看到这样的结果
zjcxc 2003-05-24
  • 打赏
  • 举报
回复
你把
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmbackup
Caption = "备份"
ClientHeight = 3540
ClientLeft = 3015
ClientTop = 2490
ClientWidth = 4890
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3540
ScaleWidth = 4890
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 1440
TabIndex = 6
Top = 1440
Width = 1815
_ExtentX = 3201
_ExtentY = 450
_Version = 393216
Appearance = 1
Min = 5
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 4200
Top = 3000
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 375
Left = 1680
TabIndex = 1
Top = 2760
Width = 975
End
Begin VB.CommandButton Command1
Caption = "备份"
Height = 375
Left = 1680
TabIndex = 0
Top = 2040
Width = 975
End
Begin VB.Label Label4
Caption = "数据库备份成功请退出"
Height = 495
Left = 1440
TabIndex = 5
Top = 1200
Visible = 0 'False
Width = 1815
End
Begin VB.Label Label3
Caption = "秒"
Height = 255
Left = 1440
TabIndex = 4
Top = 720
Width = 255
End
Begin VB.Label Label2
Caption = "5"
Height = 255
Left = 1320
TabIndex = 3
Top = 720
Width = 255
End
Begin VB.Label Label1
Caption = "剩余时间:"
Height = 255
Left = 360
TabIndex = 2
Top = 720
Width = 975
End
End
Attribute VB_Name = "frmbackup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim x As Integer
Dim y As Integer
这一段复制到记事本中,另存为一个扩展名为frm的文件,再用VB打开就知道是什么了,
这不是一段程序,而是VB中一个form的文件内容.

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧