VB6.0弹出Microsofe Windows Common Controls 6.0(SP6)对象库未注册？

Posted 2023-05-17

前天修补了电脑(win7系统)的漏洞，今天运行VB6.0(简体中文版)时，弹出“编译错误：未找到方法或数据成员”，因为我在代码中应用了Microsofe Windows Common Controls 6.0(SP6)部件中的进度条ProgressBar。查看控件属性本来名为ProgressBar1的ProgressBar，现在成了名为ProgressBar1的picturebox。部件里有Microsofe Windows Common Controls 6.0(SP6)控件，可在应用时弹出对象库未注册，哪位大侠知道怎么解决？

1.先下载regtlib.exe放到J:\Windows\System32盘下
2.再以管理员身份运行cmd，执行指令：
cd J:\Windows\SysWOW64\
regtlib msdatsrc.tlb

32位系统：

cd c:\windows\system32
c:\Windows\System32>regtlib msdatsrc.tlb
困扰了我好久，亲测可行！ 参考技术A 不碍事的 如果有问题 他不会弹出来的 因为机都打不开的 参考技术B 重新注册控件 参考技术C 运行命令中输入regsvr32 msdatgrd.ocx
→在VB6集成开发环境中，
→选择“工程/部件”菜单，
→弹出“部件”对话框。
→点击列表框旁边的“浏览”按钮，
→并在“添加ActiveX控件”对话框中选中msdatgrd.ocx文件，
→按“确定”即可。 参考技术D 装了win7 sp1补丁,删除补丁后应该好了.你试下

vb入门+vs2010（20180208）

1.创建窗体

在弹出菜单中选择【添加】---->【Windows窗体】，然后输入窗体名（我都用的默认名），单击完成

2.添加控件

在窗体上添加一个Button按钮

3.添加代码

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

‘-----------------------if多重判断用例--------------------------        

‘ If CInt(TextBox1.Text) > 5 Then        

  ‘     MessageBox.Show("你输入的数大于5")        

  ‘ ElseIf CInt(TextBox1.Text) = 5 Then        

  ‘     MessageBox.Show("你输入的数等于5")        

  ‘ Else        

  ‘     MessageBox.Show("你输入的数小于5")        

  ‘        

 ‘ End If

 ‘-----------------------select case用例-------------------------        

‘Dim a As Integer = CInt(TextBox1.Text)        

‘Select Case a       

  ‘    Case 1, 3, 5, 7, 9       

  ‘        MessageBox.Show("你输入的是小于10的单数")       

  ‘    Case 8 To 12       

  ‘        MessageBox.Show("你输入的是8到12之间的数")       

  ‘    Case 13 To 25       

  ‘        MessageBox.Show("你输入的是13到25之间的数")        

  ‘    Case 31 To 35, Is > 50        

‘        MessageBox.Show("你输入的是31到35之间的数或大于50的数")        

‘End Select

 ‘----------------------for.....next语句用例---------------------       

  ‘Dim i, s As Integer       

  ‘For i = 0 To 100        

  ‘    s = s + i        

‘Next        

‘MessageBox.Show("累计和为" & (s))

 ‘----------------------for.....each语句用例---------------------       

  ‘ Dim i As Integer      

  ‘ Dim a() As String = {"第二章", "语法学习", "学习"}     

    ‘ For Each a(i) In a      

    ‘     MessageBox.Show(a(i))        

  ‘ Next    

End Sub

End Class

今天就写这么些吧！

明天继续！