麻烦解释一些一下VB代码

襄阳城 · 发表于 2010-7-1 09:42:09

麻烦解释一些一下VB代码
<img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -
解决时间：2010-7-1 09:40
Dim row As Long， col As Long
Dim width As Single， maxWidth As Single
Dim saveFont As StdFont， saveScaleMode As Integer
Dim cellText As String
Dim i As Integer
\'If number of records = 0 then exit from the sub
If intRecord = 0 Then Exit Sub
\'Save the form\'s font for DataGrid\'s font
\'We need this for form\'s TextWidth method
Set saveFont = DG.Parent.Font [这是什么意思]
Set DG.Parent.Font = DG.Font [这是什么意思]
\'Adjust ScaleMode to vbTwips for the form (parent).
saveScaleMode = DG.Parent.ScaleMode [这是什么意思]
DG.Parent.ScaleMode = vbTwips [这是什么意思]
\'Always from first record...
adoData.MoveFirst
maxWidth = 0
\'Tampung nilai maksimal dengan mengalikan variabel
\'jumlah field dan jumlah record， untuk menentukan
\'banyaknya sel yang akan diproses/disesuaikan lebarnya
maks = intField * intRecord [这是什么意思]
\'Inisialisasi nilai maksimal progressbar
frmADOCode2.prgBar1.Visible = True
frmADOCode2.prgBar1.Max = maks
\'We begin from the first column until the last column
For col = 0 To intField - 1
\'Tampilkan nama field/kolom yg sedang diproses
frmADOCode2.lblField.Caption = _
"Column: " & DG.Columns(col).DataField
adoData.MoveFirst
\'Optional param， if true， set maxWidth to
\'width of DG.Parent
If AccForHeaders Then
maxWidth = DG.Parent.TextWidth(DG.Columns(col).Text) + 200
End If
\'Repeat from first record again after we have
\'finished process the last record in
\'former column...
adoData.MoveFirst
For row = 0 To intRecord - 1
\'Get the text from the DataGrid\'s cell
If intField = 1 Then
Else \'If number of field more than one
cellText = DG.Columns(col).Text
End If
\'Fix the border...
\'Not for "multiple-line text"...
width = DG.Parent.TextWidth(cellText) + 200
\'Update the maximum width if we found
\'the wider string...
If width > maxWidth Then
maxWidth = width
DG.Columns(col).width = maxWidth
End If
\'Process next record...
adoData.MoveNext
DoEvents
\'Counter bertambah satu， dst
i = i + 1
frmADOCode2.lblAngka.Caption = _
"Finished " & Format((i / maks) * 100， "0") & "%"
DoEvents
frmADOCode2.prgBar1.Value = i
DoEvents
..............
提问者： vinflair - 二级
最佳答案
Set saveFont = DG.Parent.Font [这是什么意思]
Set DG.Parent.Font = DG.Font [这是什么意思]
第一句是把DG.Parent.Font（DataGrid控件的父窗体，一般如果你把DataGrid控件放到窗体Form1里边，那么DG.Parent就是窗体Form1，DG.Parent.Font就是Form1设置的字体，也就是Form1.Font）的值赋值给变量saveFont
第二句是把DG.Font（DataGrid控件的字体，DataGrid控件还有HeadFont设置标题栏字体的）的值赋值给DG.Parent.Font，即父窗体的字体设置为DataGrid控件的字体
这两句可以用来备份原来DG.Parent.Font的字体设置，先设置一种字体，以后要是觉得不爽想用回原来的字体，可以用Set DG.Parent.Font = saveFont 修改设置，因为saveFont变量保存了原来的字体。
saveScaleMode = DG.Parent.ScaleMode [这是什么意思]
DG.Parent.ScaleMode = vbTwips [这是什么意思]
主要作用和上面一样，也是备份的，不过这次是设置ScaleMode 属性的，ScaleMode 属性指当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。可以说 ScaleMode 表示一把刻度尺，可以使用不同的单位（就像尺子可以有英尺、厘米、毫米等单位，ScaleMode 属性在标准坐标系统中使用的长度单位可以是0 user用户，1 twip 缇、2 point 磅、3 pixel 像素、4 character 字符、5 inch 英寸、6 millimeter 毫米和7 centimeter 厘米。）
这段代码先备份好DG.Parent.ScaleMode（父窗体的ScaleMode）然后把DG.Parent.ScaleMode设置为 twip 缇 .
maks = intField * intRecord [这是什么意思]
这句。。。把两个变量intField和intRecord相乘赋值给第三个变量maks，这里没有什么语句可以找到赋值的，
单从字面意思看，
intField表示字段的数量吧，可能int一般是Integer的缩写，Field字段。
intRecord可能表示记录数量，Record表示记录，一般用RecordCount表示记录数量。
那么这两个相乘就是表示所有记录*所有字段了
0
回答者：
<img src="http://www.baidu.com/search/zhidao/zhuti-5year/image/icon1.gif">
<img src="http://img.baidu.com/img/iknow/icon_huizhang.gif">
mosesmoses0651 - 九级 2010-7-1 09:37
我来评论>>
提问者对于答案的评价：
非常感谢这位哥们，呵呵

账号		自动登录	找回密码
密码			注册会员