| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 525 人关注过本帖
标题:[求助]请教这些程序什么意思,谢谢大家了~~
取消只看楼主 加入收藏
zskgi1
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2007-9-21
收藏
 问题点数:0 回复次数:1 
[求助]请教这些程序什么意思,谢谢大家了~~

Public Sub drawline(star As Long)
Dim jjj As Long
Dim zz As Long
Dim qq As Long
On Error Resume Next
Picture2.Cls
st = star
jjj = mycount - star
If jjj <= 600 Then
zz = jjj
Else: zz = 600
End If
If ssss = 1 Then
adoPrimaryRS2.Move star - 1, adBookmarkFirst
For qq = 0 To 12 Step 1
Label6(qq).Caption = ""
Next qq (以上这段程序什么意思)


Private Sub Form_Unload(Cancel As Integer)
If ssss = 1 Then

If adoPrimaryRS2.State = 1 Then (这句尤其state什么意思)

adoPrimaryRS2.Close
db2.Close
End If
End If
'Form1.sj = 0
Timer1.Interval = 0
End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim su As Long
If ssss = 1 Then

su = st + Round(X)
If su <= mycount Then
adoPrimaryRS2.Move su - 1, adBookmarkFirst(以上这三句尤其move这句什么意思)

Text2.Text = adoPrimaryRS2.Fields.Item(0).Value
Text3.Text = adoPrimaryRS2.Fields.Item(1).Value
Text4.Text = adoPrimaryRS2.Fields.Item(2).Value
Else: Form9.Label1.Caption = "没有记录!!"
Form9.Show
End If
End If
End Sub

搜索更多相关主题的帖子: star 
2007-10-14 16:44
zskgi1
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2007-9-21
收藏
得分:0 
回复:(simpson)If adoPrimaryRS2.State = 1 Then ...
别误会,我知道那段程序每句什么意思,但是我不知道放在一起整段程序什么用意什么功能
2007-10-15 10:41
快速回复:[求助]请教这些程序什么意思,谢谢大家了~~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023071 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved