Как узнать component available или not available? - VB

Формулировка задачи:

Dobri den'. Vot takoi vopros: Kak mojno programmno uznat' component available ili not available ? Zaranee sposibo .

Решение задачи: «Как узнать component available или not available?»

textual
                            Листинг программы 
                        

                            Private Declare Function CLSIDFromProgID Lib 'ole32' _
      (ByVal lpszProgID As Long, ByRef pclsid As Byte) As Long
 
Private Sub Form_Load()
  Dim clsid(15) As Byte, s As String
 
  s = 'Word.Application.5' ' s = 'Word.Application'
 
  If CLSIDFromProgID(StrPtr(s), clsid(0)) < 0 Then
    MsgBox 'Not available'
  End If
 
End Sub
                        

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы