home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Main.frm < prev    next >
Text File  |  1998-06-15  |  3KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form Main 
  3.    Caption         =   "Main"
  4.    ClientHeight    =   1065
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   2025
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1065
  10.    ScaleWidth      =   2025
  11.    StartUpPosition =   3  'Windows-Standard
  12.    Begin VB.Timer Timer1 
  13.       Left            =   1560
  14.       Top             =   720
  15.    End
  16.    Begin VB.CheckBox Exclusive 
  17.       Caption         =   "&Exclusiv"
  18.       Height          =   255
  19.       Left            =   120
  20.       TabIndex        =   1
  21.       Top             =   720
  22.       Width           =   975
  23.    End
  24.    Begin VB.Label Label1 
  25.       Caption         =   "ArCon Dialoge werden erweitert..."
  26.       Height          =   405
  27.       Left            =   0
  28.       TabIndex        =   0
  29.       Top             =   150
  30.       Width           =   1965
  31.    End
  32. End
  33. Attribute VB_Name = "Main"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. ' MS Visual Basic Demo-Programm zur Demonstration der ActiveX-FΣhigkeit
  39. ' von ArCon(+).
  40. '
  41. ' Der abgebildete Code dient lediglich Demonstrationszwecken.
  42. ' Es wird keinerlei Garantie fⁿr die Richtigkeit und/oder
  43. ' FunktionsfΣhigkeit ⁿbernommen. Bei Fragen wenden Sie sich bitte an
  44. '
  45. '    mb-Programme
  46. '    Software im Bauwesen GmbH
  47. '    Hermannstra▀e 1
  48. '    D-31785 Hameln
  49. '    e-mail:  arcon@mb-hameln.de
  50. '    Internet http://www.mb-hameln.de
  51.  
  52. Option Explicit
  53.  
  54. Dim WithEvents ArConEXE As ArCon.ArCon
  55. Attribute ArConEXE.VB_VarHelpID = -1
  56. Private theDlgToken As Long
  57.  
  58. Private Sub ArConEXE_DialogActivation(ByVal DlgID As Long, ByVal ArConDlgToken As Long, ByVal subObjectCount As Long, ByVal activated As Boolean)
  59.     If DlgID = ACDLGID_MauerEinstellungen And Exclusive.Value = 0 Then
  60.         Dim s
  61.         s = ArConEXE.GetDialogData(ArConDlgToken, 0, ACDLGCTL_GenericTexturListe)
  62.         Hallo.TexName = "Textur: " & s
  63.     End If
  64. End Sub
  65.  
  66. Private Sub ArConEXE_EndDialog(ByVal dialogID As Long, ByVal OK As Boolean)
  67.     Unload Hallo
  68. End Sub
  69.  
  70. Private Sub ArConEXE_LoadDialog(ByVal dialogID As Long, ByVal ArConDlgToken As Long, ByVal dialogObject As Object)
  71.     If Exclusive.Value = 0 Then
  72.         Hallo.DlgID = CStr(dialogID)
  73.         ArConEXE.AttachDialog ArConDlgToken, Hallo.hWnd, Hallo.Icon, 0, False, False
  74.     Else
  75.         theDlgToken = ArConDlgToken
  76.         Timer1.Interval = 1
  77.     End If
  78. End Sub
  79.  
  80. Private Sub ArConEXE_ProgramExit()
  81.     On Error Resume Next
  82.     ArConEXE.EndMe
  83.     Set ArConEXE = Nothing
  84.     Unload Hallo
  85.     Unload Me
  86. End Sub
  87.  
  88. Private Sub Form_Load()
  89.     Set ArConEXE = New ArCon.ArCon
  90.     If Not ArConEXE.StartMe(hWnd, "") Then
  91.         MsgBox "ArCon lΣuft nicht!"
  92.         Unload Me
  93.         Exit Sub
  94.     End If
  95.     ArConEXE.SetStatusText "Alle Dialoge werden erweitert..."
  96. End Sub
  97.  
  98. Public Sub ExclusiveDone()
  99.     If theDlgToken = 0 Then Exit Sub
  100.     ArConEXE.CloseDialog theDlgToken, ExclusivDlg.withOK
  101.     theDlgToken = 0
  102. End Sub
  103.  
  104. Private Sub Timer1_Timer()
  105.     Timer1.Interval = 0
  106.     Load ExclusivDlg
  107.     ArConEXE.AttachDialog theDlgToken, ExclusivDlg.hWnd, 0, 0, False, True
  108.     ExclusivDlg.Show
  109. End Sub
  110.