如下:Object=*ocx下的别人的代码,在学习。这个怎么去掉? VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form FrmModPay
BorderStyle = 3 'Fixed Dialog
Caption = "修改工资信息"
ClientHeight = 5295
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form FrmModPay
BorderStyle = 3 'Fixed Dialog
Caption = "修改工资信息"
ClientHeight = 5295
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3480
Top = 360
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox Text1
Height = 1815
Left = 840
TabIndex = 0
Text = "Text1"
Top = 720
Width = 2415
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3480
Top = 360
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
删除以上内容公用对话框就没有了
其后跟的WinXPCEngine.ocx就是这个控件的名称了。你可以在你的注册表(运行——regedit)里,键HKEY_CLASSES_ROOT\Licenses下找到你本机上所有授权的VB控件。当然包括你安装VB6时微软的默认控件,以及之后你使用过的第三方控件。提个小小建议:备份这个Licenses,因为貌似windows优化大师这样的LJ软件在你清理注册表时自作多情将里面有用注册项删掉
由于你没有这些控件,显示的是picturebox.代码是正常的