home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
mcm_box
/
form1.frm
next >
Wrap
Text File
|
1994-05-31
|
9KB
|
362 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "MComboBox Demo"
ClientHeight = 1716
ClientLeft = 876
ClientTop = 2100
ClientWidth = 6336
Height = 2460
Left = 828
LinkTopic = "Form1"
ScaleHeight = 1716
ScaleWidth = 6336
Top = 1404
Width = 6432
Begin CommandButton Command2
Caption = "&Resort"
Height = 348
Left = 3360
TabIndex = 5
Top = 576
Width = 1356
End
Begin MComboBox MCombo2
AddItemHeight = 0
Alignment = 1 'Left
BorderStyle = 0 'Normal
ComboBoxStyle = 0 'Fixed
DefPicture = FORM1.FRX:0000
DrawRegions = 1
FallColor = &H00808080&
FindDirection = 0 'Forward
FindResult = 0 'Update ListIndex
Height = 576
HiliteBackColor = &H00000000&
HiliteForeColor = &H00000000&
ImageRegion = 0
ImageType = 2 'Aligned Bitmap
ItemDefHeight = 500
Left = 144
LinesInList = 6
MaskingColor = &H00C0C0C0&
OwnerDraw = 0 'False
RiseColor = &H00FFFFFF&
SortColumn = 0
Sorted = 0 'False
StringCompare = 0 'Case Sensitive
TabIndex = 4
Top = 1008
Version = "01.00"
Width = 2844
End
Begin CommandButton Command1
Caption = "&InString"
Height = 348
Left = 3360
TabIndex = 1
Top = 144
Width = 1356
End
Begin MComboBox MCombo1
AddItemHeight = 0
Alignment = 1 'Left
BackColor = &H00C0C0C0&
BorderStyle = 2 'Inset
ComboBoxStyle = 0 'Fixed
DefPicture = FORM1.FRX:011A
DragIcon = FORM1.FRX:0234
DrawRegions = 3
FallColor = &H00808080&
FindDirection = 0 'Forward
FindResult = 0 'Update ListIndex
ForeColor = &H00000000&
Height = 420
HiliteBackColor = &H00000000&
HiliteForeColor = &H00FFFFFF&
ImageRegion = 1
ImageType = 1 'Bitmap
ItemDefHeight = 350
Left = 144
LinesInList = 6
MaskingColor = &H00C0C0C0&
OwnerDraw = 0 'False
RiseColor = &H00FFFFFF&
SortColumn = 1
Sorted = -1 'True
StringCompare = 0 'Case Sensitive
TabIndex = 0
Top = 288
Version = "01.00"
Width = 2892
End
Begin Label Label2
BorderStyle = 1 'Fixed Single
Caption = "Aligned Bitmap Combo Box"
Height = 204
Left = 144
TabIndex = 3
Top = 768
Width = 2844
End
Begin Label Label1
BorderStyle = 1 'Fixed Single
Caption = "Normal w/Color, Font, Bitmaps"
Height = 204
Left = 144
TabIndex = 2
Top = 48
Width = 2892
End
Begin Image Image1
Height = 240
Left = 6000
Picture = FORM1.FRX:0536
Top = 1344
Width = 180
End
Begin Menu mnuCombo
Caption = "&ComboBox"
Begin Menu mnuText
Caption = "&Text"
End
Begin Menu mnuListCount
Caption = "&List Count"
End
Begin Menu mnuListIndex
Caption = "List &Index"
End
Begin Menu mnuNormal
Caption = "&Normal"
End
Begin Menu mnuBitmap2
Caption = "&Bitmap"
End
End
Begin Menu mnuBitmap
Caption = "&Bitmap"
Begin Menu mnuLeft
Caption = "&Left"
End
Begin Menu mnuTop
Caption = "&Top"
End
Begin Menu mnuRight
Caption = "&Right"
End
Begin Menu mnuBottom
Caption = "&Bottom"
End
End
Begin Menu mnuMisc
Caption = "&Misc"
Begin Menu mnuItemData
Caption = "&Item Data"
End
Begin Menu mnuNewIndex
Caption = "&New Index"
End
Begin Menu mnuList
Caption = "&List"
End
Begin Menu mnuActiveRegion
Caption = "&ActiveRegion"
End
Begin Menu mnuListRegion
Caption = "List&Region"
End
Begin Menu mnuTextRegion
Caption = "&TextRegion"
End
Begin Menu mnuRemoveItem
Caption = "&Remove Item"
End
End
End
Sub Command1_Click ()
MCombo1.InString = "Test String Two"
End Sub
Sub Command2_Click ()
MCombo1.SortColumn = 2
MCombo1.Resort = 1
End Sub
Sub Form_Load ()
MCombo1.ItemLength(1) = 250
MCombo1.ItemLength(2) = 1700
MCombo1.ItemLength(3) = 250
MCombo1.AddItem "Test String One" + Chr$(9) + "A"
MCombo1.AddItem "TEST STRING ONE" + Chr$(9) + "B"
MCombo1.AddItem "Test String Two" + Chr$(9) + "C"
MCombo1.AddItem "Test String Three" + Chr$(9) + "D"
MCombo1.AddItem "Test String Four" + Chr$(9) + "E"
MCombo1.AddItem "Test String Five" + Chr$(9) + "F"
MCombo1.AddItem "Test String Six" + Chr$(9) + "G"
For I = 0 To MCombo1.ListCount - 1
MCombo1.ItemData(I) = (I + 1) * 100
Next I
MCombo1.ItemFontName(3) = "Courier"
MCombo1.ItemFontBold(3) = False
MCombo1.ItemFontSize(3) = 15
MCombo1.ItemPicture(1) = Image1.Picture
MCombo1.ItemForeColor(2) = RGB(255, 0, 0)
MCombo1.ItemBkColor(2) = RGB(192, 192, 192)
MCombo1.ItemHiliteForeColor(2) = RGB(192, 192, 192)
MCombo1.ItemHiliteBackColor(2) = RGB(255, 0, 0)
MCombo1.ListIndex = 0
MCombo2.AddItem "Bitmap String One"
MCombo2.AddItem "Bitmap String Two"
MCombo2.AddItem "Bitmap String Three"
MCombo2.AddItem "Bitmap String Four"
MCombo2.AddItem "Bitmap String Five"
MCombo2.AddItem "Bitmap String Six"
MCombo2.ListIndex = 0
End Sub
Sub MCombo1_DblClick ()
MsgBox "DoubleClick"
End Sub
Sub MCombo1_SelChange ()
Debug.Print "SelChange: " + MCombo1.Text
End Sub
Sub mnuActiveRegion_Click ()
MCombo1.ActiveRegion = 1
MCombo1.ListRegion(5) = "Change"
MCombo1.TextRegion = "Change"
End Sub
Sub mnuBitmap_Click ()
MCombo1.DrawRegions = 3
MCombo1.ItemLength(1) = 250
MCombo1.ItemLength(2) = 1700
MCombo1.ItemLength(3) = 250
MCombo1.ImageType = 1
MCombo1.Refresh
End Sub
Sub mnuBottom_Click ()
MCombo2.Alignment = 4
MCombo2.Refresh
End Sub
Sub mnuItemData_Click ()
For I = 0 To MCombo1.ListCount - 1
Debug.Print "ItemData ("; Trim$(Str$(I)); "):" + Str$(MCombo1.ItemData(I))
Next I
End Sub
Sub mnuLeft_Click ()
MCombo2.Alignment = 1
MCombo2.Refresh
End Sub
Sub mnuList_Click ()
For I = 0 To MCombo1.ListCount - 1
Debug.Print MCombo1.List(I)
Next I
End Sub
Sub mnuListCount_Click ()
MsgBox "MCombo1.ListCount =" + Str$(MCombo1.ListCount)
End Sub
Sub mnuListIndex_Click ()
MsgBox "MCombo1.ListIndex =" + Str$(MCombo1.ListIndex)
End Sub
Sub mnuListRegion_Click ()
MCombo1.ListRegion(0) = "Change II"
End Sub
Sub mnuNewIndex_Click ()
MCombo2.AddItem "Adding String"
MsgBox "MCombo2.NewIndex =" + Str$(MCombo2.NewIndex)
End Sub
Sub mnuNormal_Click ()
MCombo1.DrawRegions = 2
MCombo1.ItemLength(1) = 1700
MCombo1.ItemLength(2) = 250
MCombo1.ImageType = 0
MCombo1.Refresh
End Sub
Sub mnuRemoveItem_Click ()
MCombo1.RemoveItem 6
End Sub
Sub mnuRight_Click ()
MCombo2.Alignment = 3
MCombo2.Refresh
End Sub
Sub mnuText_Click ()
MsgBox "Combo1.Text = " + MCombo1.Text
End Sub
Sub mnuTextRegion_Click ()
MCombo1.TextRegion = "Change II"
End Sub
Sub mnuTop_Click ()
MCombo2.Alignment = 2
MCombo2.Refresh
End Sub