ActiveX Programming Unleashed CD

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

/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhflst / fmhfllst.frm (.txt) next >

Wrap

Visual Basic Form | 1995-11-28 | 16.6 KB | 543 lines

VERSION 4.00 Begin VB.Form fMhFlLst BorderStyle = 1 'Fixed Single Caption = "MicroHelp MhFileList Example" ClientHeight = 6552 ClientLeft = 2592 ClientTop = 2280 ClientWidth = 8808 Height = 6924 Left = 2544 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6552 ScaleWidth = 8808 Top = 1956 Width = 8904 Begin VB.Frame frmSort Caption = "Sort" Height = 3615 Left = 120 TabIndex = 22 Top = 2400 Width = 1575 Begin VB.OptionButton optSort Caption = "Sort by Attrib." Height = 375 Index = 6 Left = 120 TabIndex = 29 Top = 3120 Width = 1335 End Begin VB.OptionButton optSort Caption = "Sort by Size" Height = 375 Index = 5 Left = 120 TabIndex = 28 Top = 2640 Width = 1335 End Begin VB.OptionButton optSort Caption = "Sort by Date" Height = 375 Index = 4 Left = 120 TabIndex = 27 Top = 2160 Width = 1335 End Begin VB.OptionButton optSort Caption = "Sort by Ext." Height = 375 Index = 3 Left = 120 TabIndex = 26 Top = 1680 Width = 1335 End Begin VB.OptionButton optSort Caption = "Sort by Name" Height = 375 Index = 2 Left = 120 TabIndex = 25 Top = 1200 Width = 1335 End Begin VB.OptionButton optSort Caption = "Sorted" Height = 375 Index = 1 Left = 120 TabIndex = 24 Top = 720 Width = 1335 End Begin VB.OptionButton optSort Caption = "Unsorted" Height = 375 Index = 0 Left = 120 TabIndex = 23 Top = 240 Width = 1335 End End Begin VB.Frame frmSelections Caption = "Selections" Height = 1215 Left = 1800 TabIndex = 14 Top = 4800 Width = 6855 Begin VB.CheckBox chkReadOnly Caption = "Read Only" Height = 375 Left = 5160 TabIndex = 21 Top = 360 Width = 1455 End Begin VB.CheckBox chkSystem Caption = "System" Height = 375 Left = 3480 TabIndex = 20 Top = 720 Width = 1335 End Begin VB.CheckBox chkHidden Caption = "Hidden" Height = 375 Left = 3480 TabIndex = 19 Top = 360 Width = 1455 End Begin VB.CheckBox chkNormal Caption = "Normal" Height = 375 Left = 1920 TabIndex = 18 Top = 720 Value = 1 'Checked Width = 975 End Begin VB.CheckBox chkArchive Caption = "Archive" Height = 375 Left = 1920 TabIndex = 17 Top = 360 Value = 1 'Checked Width = 1095 End Begin VB.CheckBox chkDirectories Caption = "Directories" Height = 375 Left = 240 TabIndex = 16 Top = 720 Value = 1 'Checked Width = 1095 End Begin VB.CheckBox chkDrives Caption = "Drives" Height = 375 Left = 240 TabIndex = 15 Top = 360 Width = 1455 End End Begin VB.Frame frmDisplay Caption = "Display" Height = 1215 Left = 1800 TabIndex = 2 Top = 3480 Width = 6855 Begin VB.CheckBox chkSelect Caption = "Extended" Height = 255 Index = 1 Left = 5160 TabIndex = 30 Top = 840 Width = 1215 End Begin VB.CheckBox chkSelect Caption = "Single Select" Height = 375 Index = 0 Left = 5160 TabIndex = 13 Top = 360 Width = 1455 End Begin VB.CheckBox chkSizeable Caption = "Sizeable" Height = 375 Left = 3480 TabIndex = 12 Top = 720 Width = 1335 End Begin VB.CheckBox chkHoriz Caption = "Horizontal Scroll" Height = 375 Left = 3480 TabIndex = 11 Top = 360 Width = 1455 End Begin VB.CheckBox chkMax Caption = "Max Box" Enabled = 0 'False Height = 375 Left = 1920 TabIndex = 10 Top = 720 Width = 1095 End Begin VB.CheckBox chkMin Caption = "Min Box" Enabled = 0 'False Height = 375 Left = 1920 TabIndex = 9 Top = 360 Width = 975 End Begin VB.CheckBox chkControlBox Caption = "Control Box" Enabled = 0 'False Height = 375 Left = 240 TabIndex = 8 Top = 720 Width = 1215 End Begin VB.CheckBox chkMDI Caption = "MDI" Height = 375 Left = 240 TabIndex = 7 Top = 360 Width = 1095 End End Begin VB.Frame frmAttribute Caption = "Statistics" Height = 975 Left = 1800 TabIndex = 1 Top = 2400 Width = 6855 Begin VB.CheckBox chkTime Caption = "Time" Height = 495 Left = 5160 TabIndex = 6 Top = 360 Width = 855 End Begin VB.CheckBox chkSize Caption = "Size" Height = 495 Left = 3480 TabIndex = 5 Top = 360 Width = 735 End Begin VB.CheckBox chkDate Caption = "Date" Height = 495 Left = 1920 TabIndex = 4 Top = 360 Width = 855 End Begin VB.CheckBox chkAttributes Caption = "Attributes" Height = 495 Left = 240 TabIndex = 3 Top = 360 Width = 1215 End End Begin VB.Label Label1 Caption = $"fMhFlLst.frx":0000 Height = 2175 Left = 7080 TabIndex = 31 Top = 120 Width = 1575 WordWrap = -1 'True End Begin Mhfl200Lib.MhFileList MhFileList1 Height = 2175 Left = 120 TabIndex = 0 Top = 120 Width = 6855 _Version = 65536 _ExtentX = 12091 _ExtentY = 3836 _StockProps = 111 BorderStyle = 1 TintColor = 16711935 Sorted = 0 ScreenUpdate = -1 'True SingleSelect = 0 'False ExtendedSelect = 0 'False HorizScroll = 0 'False Sizeable = 0 'False MDI = 0 'False MinButton = 0 'False ControlBox = 0 'False Icon = "fMhFlLst.frx":00F2 FileList = -1 'True Drive = 0 'False Dir = -1 'True Normal = -1 'True Hidden = 0 'False System = 0 'False ReadOnly = 0 'False Archive = -1 'True Path = "C:\" Pattern = "*.*" Style = 0 ShowFDate = 0 'False ShowFTime = 0 'False ShowFSize = 0 'False ShowFAtt = 0 'False Title = "File Name Ext " TitleHeight = 0 TitleBold = 0 'False MaxButton = 0 'False WindowState = 0 FontStyle = 0 BevelSizeInner = 0 BevelStyleInner = 0 LightColor = 16777215 ShadowColor = 8421504 BorderColor = 0 FillColor = -2147483633 TextColor = 0 HighColor = 16777215 SelectedColor = 8388608 DividerStyle = 0 VerticalDivider = 0 'False End Attribute VB_Name = "fMhFlLst" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub chkArchive_Click() If MhFileList1.Archive = True Then MhFileList1.Archive = False Else MhFileList1.Archive = True End If MhFileList1.SetFocus End Sub Private Sub chkAttributes_Click() If MhFileList1.ShowFAtt = True Then MhFileList1.ShowFAtt = False Else MhFileList1.ShowFAtt = True End If MhFileList1.SetFocus End Sub Private Sub chkControlBox_Click() If MhFileList1.ControlBox = True Then MhFileList1.ControlBox = False Else MhFileList1.ControlBox = True End If MhFileList1.SetFocus End Sub Private Sub chkDate_Click() If MhFileList1.ShowFDate = True Then MhFileList1.ShowFDate = False Else MhFileList1.ShowFDate = True End If MhFileList1.SetFocus End Sub Private Sub chkDirectories_Click() If MhFileList1.Dir = True Then MhFileList1.Dir = False Else MhFileList1.Dir = True End If MhFileList1.SetFocus End Sub Private Sub chkDrives_Click() If MhFileList1.Drive = True Then MhFileList1.Drive = False Else MhFileList1.Drive = True End If MhFileList1.SetFocus End Sub Private Sub chkExtend_Click() If MhFileList1.ExtendedSelect = True Then MhFileList1.ExtendedSelect = False Else MhFileList1.ExtendedSelect = True End If MhFileList1.SetFocus End Sub Private Sub chkHidden_Click() If MhFileList1.Hidden = True Then MhFileList1.Hidden = False Else MhFileList1.Hidden = True End If MhFileList1.SetFocus End Sub Private Sub chkHoriz_Click() If MhFileList1.HorizScroll = True Then MhFileList1.HorizScroll = False Else MhFileList1.HorizScroll = True End If MhFileList1.SetFocus End Sub Private Sub chkMax_Click() If MhFileList1.MaxButton = True Then MhFileList1.MaxButton = False Else MhFileList1.MaxButton = True End If MhFileList1.SetFocus End Sub Private Sub chkMDI_Click() Static iMinBtnState As Integer Static iMaxBtnState As Integer Static iCtlBoxState As Integer If chkMDI.Value = 1 Then MhFileList1.MDI = True chkControlBox.Enabled = True chkControlBox.Value = iCtlBoxState chkMin.Enabled = True chkMin.Value = iMinBtnState chkMax.Enabled = True chkMax.Value = iMaxBtnState Else MhFileList1.MDI = False iCtlBoxState = chkControlBox.Value chkControlBox.Value = im_GRAYED chkControlBox.Enabled = False iMinBtnState = chkMin.Value chkMin.Value = im_GRAYED chkMin.Enabled = False iMaxBtnState = chkMax.Value chkMax.Value = im_GRAYED chkMax.Enabled = False End If MhFileList1.SetFocus End Sub Private Sub chkMin_Click() If MhFileList1.MinButton = True Then MhFileList1.MinButton = False Else MhFileList1.MinButton = True End If MhFileList1.SetFocus End Sub Private Sub chkNormal_Click() If MhFileList1.Normal = True Then MhFileList1.Normal = False Else MhFileList1.Normal = True End If MhFileList1.SetFocus End Sub Private Sub chkReadOnly_Click() If MhFileList1.ReadOnly = True Then MhFileList1.ReadOnly = False Else MhFileList1.ReadOnly = True End If MhFileList1.SetFocus End Sub Private Sub chkSingle_Click() If MhFileList1.SingleSelect = True Then MhFileList1.SingleSelect = False Else MhFileList1.SingleSelect = True End If MhFileList1.SetFocus End Sub Private Sub chkSelect_Click(Index As Integer) Select Case Index Case 0 MhFileList1.SingleSelect = chkSelect(Index).Value If MhFileList1.ExtendedSelect Then chkSelect(Index + 1).Value = Checked Else chkSelect(Index + 1).Value = Unchecked End If If MhFileList1.SingleSelect Then chkSelect(Index + 1).Enabled = MhFalse Else chkSelect(Index + 1).Enabled = MhTrue End If Case 1 MhFileList1.ExtendedSelect = chkSelect(Index).Value If MhFileList1.ExtendedSelect Then chkSelect(Index - 1).Value = Unchecked End If End Select End Sub Private Sub chkSize_Click() If MhFileList1.ShowFSize = True Then MhFileList1.ShowFSize = False Else MhFileList1.ShowFSize = True End If MhFileList1.SetFocus End Sub Private Sub chkSizeable_Click() If MhFileList1.Sizeable = True Then MhFileList1.Sizeable = False Else MhFileList1.Sizeable = True End If MhFileList1.SetFocus End Sub Private Sub chkSystem_Click() If MhFileList1.System = True Then MhFileList1.System = False Else MhFileList1.System = True End If MhFileList1.SetFocus End Sub Private Sub chkTime_Click() If MhFileList1.ShowFTime = True Then MhFileList1.ShowFTime = False Else MhFileList1.ShowFTime = True End If MhFileList1.SetFocus End Sub Private Sub Form_Load() 'Set defaults for the example program optSort(1).Value = True MhFileList1.Caption = "MicroHelp MhFileList" ' center form to screen Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2 End Sub Private Sub optSort_Click(Index As Integer) 'This code will set the sorted property of the control MhFileList1.Sorted = Index End Sub