VB6.0急求
VB6.0急求 -
将该语句注释掉,从VB出错界面给出的文字中说:属性数组索引无效(错误381)正在使用一个不适当的属性数组索引值。此错误产生的原因及解决方法如下:试图为属性数组索引设置一个超出允许范围的值。把属性数组的索引值改为一个有效的设置值。例如,对ListBox 而言,List 属性的索引值必须在0 到32,希望你能满意。
你既然已经声明name为“全局变量”,那么你在其他子过程Sub中,就不能在用同样的变量名进行定义。所以你在窗口中定义Dim name As String,这里就会导致全局变量name在窗体中将被当做该过程的一个私有变量处理,也就是过程级变量,这个过程里面的name,与全局变量虽然名称完全一样,但是意义却决然不同。所等会说。
将该语句注释掉,从VB出错界面给出的文字中说:属性数组索引无效(错误381)正在使用一个不适当的属性数组索引值。此错误产生的原因及解决方法如下:试图为属性数组索引设置一个超出允许范围的值。把属性数组的索引值改为一个有效的设置值。例如,对ListBox 而言,List 属性的索引值必须在0 到32,希望你能满意。
你既然已经声明name为“全局变量”,那么你在其他子过程Sub中,就不能在用同样的变量名进行定义。所以你在窗口中定义Dim name As String,这里就会导致全局变量name在窗体中将被当做该过程的一个私有变量处理,也就是过程级变量,这个过程里面的name,与全局变量虽然名称完全一样,但是意义却决然不同。所等会说。
设输入账号的框是Text1,输入密码的框是Text2,登陆按钮是Command1,不知道你的第二个按钮是做什么用的。代码如下。--- Private Sub Command1_Click()If Text1.Text = "123" And Text2.Text = "123" Then Me.Hide Form2.Show Else MsgBox "账号或密码错误"End If End Sub 到此结束了?。
Dim i As Integer Dim zongjia As Double For i = 0 To Check1.Count - 1 If Check1(i).Value = 1 Then zongjia = zongjia + Val(Text1(i).Text) * Val(Text2(i).Text)End If Next i MsgBox "总价" & CStr(zongjia)'Check1 选择控件数组 Text1 单价录入数组 Text2数量录入等我继续说。
急求VB最新版本下载,追+50分 -
1、VisualBasic6.0中文企业版。>包括全部常用功能和最新补丁。2、类型库Win.tlb。>省却大部分的API声明。3、全部vb6sp5ActiveX控件。>全部vb6sp5ActiveX控件。4、XP可视设计优化。>XP下在设计模式直接显示XP风格控件。5、完整卸载功能。>安装、卸载一条龙。6、EXE特别优化及压缩。>自动压缩EXE到此结束了?。
sql查询语句select max(某列)from 某表where 某条件或在VB6中假定rs为查询出来的数据集dim themax rs.movefirst for i = 1 to rs.recordcount if i= 1 then themax = rs("某列")else if themax<rs("某列")then themax = rs("某列")end if end if rs.movenext next i 后面会介绍。
急求:vb6.0怎么制作旋转文字? -
Private Const LF_FACESIZE = 32 Private Const DEFAULT_CHARSET = 1 Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function 还有呢?
Dim temp() As String, defaultN As Long Private Sub Command1_Click()defaultN = defaultN - 1 If defaultN = 0 Then defaultN = UBound(temp)Picture1.Picture = LoadPicture(temp(defaultN))End Sub Private Sub Command2_Click()defaultN = defaultN + 1 If defaultN > UBound(temp) 到此结束了?。
菜鸟急求,VB6.0怎样连接SQL数据库 送分了 -
r.Open "select * from addr_info ORDER BY addr", c If r.State = 1 Then Do While Not r.EOF debug.print Trim(r!addr)r.MoveNext Loop End If If r.State <> 0 Then r.Close End If If c.State <> 0 Then c.Close Set r = Nothing Set c = Nothing 其中s为连接字符串后面会介绍。
有个叫VB6.0反编译精灵,我用过,译出来的还行,但只能所译VB6.0写的程,其它写的译不了。。。如果你会汇编的话,,,那就用汇编吧。