module1.bas

VB开发opcClient的教程和源码,开发有帮助。

Attribute VB_Name = "Module1"

'***********************************************************************************************
'**                                                                                            *
'** Copyright:              SAE-Automation,s.r.o.Nova Dubnica, Slovakia,                       *
'**                                                                                            *
'***********************************************************************************************
'**                                                                                            *
'** Project: OPC Client SNMP        Project name:  OPC Client SNMP                             *
'**                                                                                            *
'***********************************************************************************************
'** @doc EXTERNAL                                                                              *
'** @module Module1.bas  |                                                                     *
'**                                                                                            *
'**                                                                                            *
'***********************************************************************************************
'** @info                                                                                      *
'** Version         : 1.0<nl>                                                                  *
'** Compiler        : Microsoft Visual Basic.NET <nl>                                          *
'** Author          : Mi, SAE-Automation,s.r.o.<nl>                                            *
'***********************************************************************************************
'** @history                                                                                   *
'** Mi  1.0.0   02.08.2005  Initial version<nl>                                                *
'***********************************************************************************************/

Public fMainForm As MainForm

'XP Style
Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
'XP Style
Public Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   ' Ensure CC available:
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex
   InitCommonControlsVB = (Err.Number = 0)
   On Error GoTo 0
End Function
Sub Main()
    
    InitCommonControlsVB 'XP style
     Set fMainForm = New MainForm
    Load fMainForm 'Load  formular
    fMainForm.Show

End Sub