Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / DDESHARE / DDESHRD.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-12-31 | 14.7 KB | 479 lines

VERSION 2.00 Begin Form DDESHRD BackColor = &H00C0C0C0& Caption = "Share Properties" Height = 6660 Icon = DDESHRD.FRX:0000 Left = 1275 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 6255 ScaleWidth = 7800 Top = 1470 Width = 7920 Begin PictureBox Picture1 Align = 1 'Align Top BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 6255 Left = 0 ScaleHeight = 417 ScaleMode = 3 'Pixel ScaleWidth = 520 TabIndex = 19 Top = 0 Width = 7800 Begin TextBox txtLvl2Pswd Height = 285 Left = 5160 TabIndex = 15 Top = 4920 Width = 1935 End Begin TextBox txtLvl1Pswd BackColor = &H00FFFFFF& Height = 285 Left = 1560 TabIndex = 9 Top = 4920 Width = 1935 End Begin CheckBox chkLvl2 BackColor = &H00C0C0C0& Caption = "Start Application on Connect" Height = 255 Index = 4 Left = 4200 TabIndex = 14 Top = 4560 Width = 2895 End Begin CheckBox chkLvl2 BackColor = &H00C0C0C0& Caption = "Execute" Height = 255 Index = 3 Left = 4200 TabIndex = 13 Top = 4200 Width = 2895 End Begin CheckBox chkLvl2 BackColor = &H00C0C0C0& Caption = "Poke" Height = 255 Index = 2 Left = 4200 TabIndex = 12 Top = 3840 Width = 2895 End Begin CheckBox chkLvl2 BackColor = &H00C0C0C0& Caption = "Advise" Height = 255 Index = 1 Left = 4200 TabIndex = 11 Top = 3480 Width = 2895 End Begin CheckBox chkLvl2 BackColor = &H00C0C0C0& Caption = "Request" Height = 255 Index = 0 Left = 4200 TabIndex = 10 Top = 3120 Width = 2895 End Begin CheckBox chkLvl1 BackColor = &H00C0C0C0& Caption = "Start Application on Connect" Height = 255 Index = 4 Left = 480 TabIndex = 8 Top = 4560 Width = 2895 End Begin CheckBox chkLvl1 BackColor = &H00C0C0C0& Caption = "Execute" Height = 255 Index = 3 Left = 480 TabIndex = 7 Top = 4200 Width = 2895 End Begin CheckBox chkLvl1 BackColor = &H00C0C0C0& Caption = "Poke" Height = 255 Index = 2 Left = 480 TabIndex = 6 Top = 3840 Width = 2895 End Begin CheckBox chkLvl1 BackColor = &H00C0C0C0& Caption = "Advise" Height = 255 Index = 1 Left = 480 TabIndex = 5 Top = 3480 Width = 2895 End Begin CheckBox chkLvl1 BackColor = &H00C0C0C0& Caption = "Request" Height = 255 Index = 0 Left = 480 TabIndex = 4 Top = 3120 Width = 2895 End Begin CommandButton btnDelete Caption = "Delete" Height = 375 Left = 6480 TabIndex = 17 Top = 960 Width = 855 End Begin CommandButton btnCancel Caption = "Cancel" Height = 375 Left = 6480 TabIndex = 18 Top = 1440 Width = 855 End Begin CommandButton btnOK Caption = "OK" Default = -1 'True Height = 375 Left = 6480 TabIndex = 16 Top = 480 Width = 855 End Begin TextBox txtItemName Height = 285 Left = 2400 TabIndex = 3 Top = 1560 Width = 3855 End Begin TextBox txtTopName Height = 285 Left = 2400 TabIndex = 2 Top = 1200 Width = 3855 End Begin TextBox txtAppName Height = 285 Left = 2400 TabIndex = 1 Top = 840 Width = 3855 End Begin TextBox txtShareName Height = 285 Left = 2400 TabIndex = 0 Top = 480 Width = 3855 End Begin Line Line1 BorderColor = &H00FFFFFF& Index = 7 X1 = 504 X2 = 504 Y1 = 376 Y2 = 409 End Begin Line Line2 BorderColor = &H00808080& Index = 6 X1 = 16 X2 = 504 Y1 = 376 Y2 = 376 End Begin Line Line2 BorderColor = &H00FFFFFF& Index = 5 X1 = 16 X2 = 504 Y1 = 408 Y2 = 408 End Begin Label lblStatus BackColor = &H00C0C0C0& ForeColor = &H00C00000& Height = 255 Left = 360 TabIndex = 30 Top = 5760 Width = 6975 End Begin Line Line1 BorderColor = &H00808080& Index = 6 X1 = 16 X2 = 16 Y1 = 376 Y2 = 408 End Begin Line Line2 BorderColor = &H00FFFFFF& Index = 4 X1 = 260 X2 = 505 Y1 = 360 Y2 = 360 End Begin Label Label3 BackColor = &H00C0C0C0& Caption = "Password:" Height = 255 Index = 1 Left = 4200 TabIndex = 29 Top = 4920 Width = 975 End Begin Label Label3 BackColor = &H00C0C0C0& Caption = "Password:" Height = 255 Index = 0 Left = 480 TabIndex = 28 Top = 4920 Width = 975 End Begin Line Line2 BorderColor = &H00808080& Index = 3 X1 = 260 X2 = 504 Y1 = 152 Y2 = 152 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Authority:" Height = 255 Index = 3 Left = 4080 TabIndex = 27 Top = 2760 Width = 1815 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Level 2 Access" Height = 255 Index = 2 Left = 4080 TabIndex = 26 Top = 2400 Width = 1815 End Begin Line Line1 BorderColor = &H00808080& Index = 3 X1 = 260 X2 = 260 Y1 = 152 Y2 = 360 End Begin Line Line1 BorderColor = &H00FFFFFF& Index = 2 X1 = 244 X2 = 244 Y1 = 153 Y2 = 360 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Authority:" Height = 255 Index = 1 Left = 360 TabIndex = 25 Top = 2760 Width = 1815 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Level 1 Access" Height = 255 Index = 0 Left = 360 TabIndex = 24 Top = 2400 Width = 1815 End Begin Line Line2 BorderColor = &H00FFFFFF& Index = 7 X1 = 16 X2 = 245 Y1 = 360 Y2 = 360 End Begin Line Line1 BorderColor = &H00FFFFFF& Index = 5 X1 = 504 X2 = 504 Y1 = 152 Y2 = 360 End Begin Line Line1 BorderColor = &H00808080& Index = 4 X1 = 16 X2 = 16 Y1 = 152 Y2 = 360 End Begin Line Line2 BorderColor = &H00808080& Index = 2 X1 = 16 X2 = 244 Y1 = 152 Y2 = 152 End Begin Line Line2 BorderColor = &H00FFFFFF& Index = 1 X1 = 17 X2 = 504 Y1 = 136 Y2 = 136 End Begin Line Line2 BorderColor = &H00808080& Index = 0 X1 = 16 X2 = 504 Y1 = 16 Y2 = 16 End Begin Line Line1 BorderColor = &H00FFFFFF& Index = 1 X1 = 504 X2 = 504 Y1 = 16 Y2 = 137 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Item Name (optional):" Height = 255 Index = 3 Left = 360 TabIndex = 23 Top = 1560 Width = 1935 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Topic Name:" Height = 255 Index = 2 Left = 360 TabIndex = 22 Top = 1200 Width = 1935 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Application Name:" Height = 255 Index = 1 Left = 360 TabIndex = 21 Top = 840 Width = 1815 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Share Name:" Height = 255 Index = 0 Left = 360 TabIndex = 20 Top = 480 Width = 1935 End Begin Line Line1 BorderColor = &H00808080& Index = 0 X1 = 16 X2 = 16 Y1 = 16 Y2 = 136 End End Option Explicit Sub btnCancel_Click () Unload DDESHRD End Sub Sub btnDelete_Click () DeleteShare txtShareName.Text End Sub Sub btnOK_Click () Dim EditMsg As String EditMsg = EditShare() If EditMsg <> "" Then Beep MsgBox EditMsg, 48, "DDEShare Error" Else UpdateShare End If End Sub Sub chkLvl1_Click (Index As Integer) SetAuthFocusMsg Index, chkLvl1(Index).Value End Sub Sub chkLvl2_Click (Index As Integer) SetAuthFocusMsg Index, chkLvl2(Index).Value End Sub Sub Form_Load () DDESHRD_Loaded = True End Sub Sub Form_Unload (Cancel As Integer) DDESHRD_Loaded = False End Sub Sub txtAppName_GotFocus () lblStatus.Caption = "Name of the actual application." End Sub Sub txtItemName_GotFocus () lblStatus.Caption = "Optional item name to connect to." End Sub Sub txtLvl1Pswd_GotFocus () lblStatus.Caption = "Password for level 1 access." End Sub Sub txtLvl2Pswd_GotFocus () lblStatus.Caption = "Password for level 2 access." End Sub Sub txtShareName_GotFocus () lblStatus.Caption = "Name to identify the application by." End Sub Sub txtTopName_GotFocus () lblStatus.Caption = "Name of the topic to connect to." End Sub