�
� �������
��
������
���������Windows���
��
����������
�����
��������� !"�#$
%��&'()�*+,� �-./0
����
�����12�34� �5$6789���*���
����:;<=�
>
?�@A)�*B=:;CD6�E���� ��FGHI��J�
KLMNO�
WindowsPQ�NORS
���� %�TUK���NO6
VWXYZ[\]Windows^_FG�5$
`a����� �bc
�@A��
� �bc
dKLMNO��� �bc*d����%�6
�����efghVW
Yijk���l��$
jk�@A��$
mn0o
p%�KLMFqbc��� �
7.1 �������
Windows ������
��
�� 3 �����
�(MDI�Multiple Document
Interface)����
�(SDI�Single Document Interface)��������
��
���
�(SDI)� !"#$%&!'�(�)*+%&,!'�(�-./012
%&��(�)3Windows456�7(���89�:;<=>����
��
���
�(MDI)����?�@ABCD%&�'���E'��FGHI5�
JK4�MDI����4LMNOPQ��RJKSQ�T��UHJKV��WXYZ
[\�])3Word�Photoshop=>�MDI���
��
�������^R_JKS�RPJKS`a��MDIABH�!�Nb�Jcd
ef�gh�'Jc������
7.1.1
MDI��
���
�(MDI)�����ij� MDI _Jc�MDI _Jc�NO MDI PJK�
Jc�PJK��@kMDI����YZlm�nJK�
o�pqHrsDteMDI_Jc�uv�
we!'Tx�yzJc� Form1�HJc�{|JK4} IsMdiContainer {|r~
� True�GJc�PJc�MDIb��
9 7.1G�rs
�MDIJc�AkJcMC�
Visual Basic .NET�������
�
�206�
�206�
� 7.1 MDI���
����ErMDIsFq�WindowStatetu\v� Maximized
w�xsFqyz{|
}~MDIFGy�'(6
7.1.2
MDI��
���
�(MDI)�����i<�MDIPJc����@lm�4�
�9 7.14�MDIJctePJc�)o3
(1) Hu�����JK4�Tx�H �¡¢Q�4£¤¥
¦|WindowsJc§¨��©Tx¥¦!'Jc�}{|ª� frmchild�
(2) �o«¬FGPJc3
Dim frmfc As New frmchild
frmfc.MdiParent = Me
frmfc.Show()
(3) }1®¬¥¦¯MDI_Jc� Form_Load;(4�°Z��±¯�
��)
9 7.2G�
� 7.2 �����
� 7���Windows
������
�207�
�207�
���
(1) MDIsFq|
�MDIFq
c�� Closing
cMDI
sFq� Closing6�
MDIFq� Closing�
c MDI
sFq� Closing
w�MDIsFq� Closing� CancelEventArgs
\v� true6efr CancelEventArgs\v� false�*MDIsFq
-.MDIFq6
(2) 78MDIFq.��MainMenu"(��e�`�����
)
mnFq���. MainMenu "� MDI sFqb�
>?
\v� MergeType tu(~��
�*\v MergeOrder tu)¡¢
£¤�
��¥¦§m6¨r¤� MainMenu "*dFq�-.���
MergeType tu�\v� MergeItems6©ª
\v MergeOrder tu
*«£¤��
����¬-® ¯°6
(3) xFqyz{|
±²�r
sFq�±²�§m¯°sFq�±²�
6xFqy³{|
Fq�´±r¯°sFq�~µ¶�·¸
¹��¯
°º»��
7.1.3 ������
HMDI_Jc4�MD²H�'PJc�³�@%&�'JKD�H´!Dµ�#M
!'JK�¶·���@#$¸¶·JKYZ¹ �
�!' MDI ����ABMC!'PJc��'º]�»+ ¼?�½'J
c�¾+ ¼¶·�Jc�A?� ActiveMDIChild{|�{|¿ÀÁMÂÃ�PJcV
¿ÀÄŶ·�PJc�
³Jc1MÆ'Ç(D�È»+ ¼½'Ç(�¶·��k ActiveMDIChild{|!
É�ActiveControl{|¿ÀH¶·�PJc1MÂÃ�Ç(�
}9 7.14MDIJc� Form_Load;(4�¬ªÊ)o3
Dim frmfc(3) As frmchild, i As Integer
For i = 1 To 3
frmfc(i) = New frmchild
frmfc(i).MdiParent = Me
frmfc(i).Text = "��" & i
frmfc(i).Show()
Next
ɳ��°Z±�MDIJc4˲HÌ'PJc�
HMDIJc1¥¦!'ÍÎ Btnactive�HÍÎ��;(4¥¦)o¬3
Private Sub btnactive_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles btnactive.Click
Dim ft As frmchild
ft = Me.ActiveMdiChild()
MsgBox(ft.Text)
End Sub
Visual Basic .NET�������
�
�208�
�208�
ɳ�©ÍÎD�ËFG³Ï¶·Jc�ÐÑ�)9 7.3G�
� 7.3 � �
���
7.1.4 ����
³H!'MDIJc4CD%&�'PJcD�ÒÓÔÕ>$Ö«×Ø�DA
B?� MDIJc� LayoutMDIuv�©uvB MDILayout{|Ù�ÚÆ�©{|M 4Û
C�ÜÙ��Ý)o3
� ArrangeIcons 9ÐÖ«�
� Cascade ÞßÖ«�
� TileHorizontal àááâ�
� TileVertical ãäáâ�
åæ LayoutMDIuvç�C�ÜÙABèéC�JcÖ«uê�)o«¬Aº
ëM�PJcÞßÖ«�
Me.LayoutMdi(MdiLayout.Cascade)
7.2 � �
Windows JcìíQ��1o�Q��îQ�HQ�ï1FG�Q�ïðUJcÐÑ
ï�ñou�
Q�ïNO�U}ò0PQ�T�`�óôQ�T�])�õ��(óôQ
�TABFGk�(¹ ò0�Q�T�
Q�TLFG�����§¨()we�%&)�öABFG�÷ø�PQ
�T�ABHQ�T�ùúFG£4Ð:�BFG����4§¨�ûüVý$�ûü�
HWindows Jc4�îQ�^MainMenuÇ(G�
þ�MainMenuÇ(��Visual Basic .NET4ÈAB� ContextMenu Ç(� ¡¢
� 7���Windows
������
�209�
�209�
Q����@��L�Q�§¨�L�¡¢Q�kÇ(ò0��x��?Q�
�
�@�Ác»+�)�
��[��������þ��£=
Q�§¨�>� TextboxÇ(�1o�Q��Ð�`a���
7.2.1 MainMenu��
WindowsJc MainMenuÇ(H°ZDFG!'Q��)*H WindowsJcrs�
4¥¦©`(��Q�rs�A?�@A��efîQ�����îQ��MPQ��
�'T��MenuItem¸��
1. ¼½��d��
1) Hrs��¥¦��þQ�kQ�T
%&R�Á�S� ¯ MainMenu Ç(�!"¯Jc1�D�Jc1u}ë!'
#$Q��)9 7.4G�
� 7.4 �� MainMenu������
�%H&'(�A'()!'Q�T�db�*±AB+"'(IQ�T�
db�
)*+�þ2¥¦�db�A�,�þ�db�H �¡¢Q�4£¤�þ
§¨�öAB£¤'¡¢Q�4�-(§¨�H³Ïð~�Ï�-(!'w�Q
�T�
2) �¬¥¦��þQ�kQ�T
o«¬AHJc1¥¦!'Q��)!'Q�T��(��(Q�oM!
'PQ�Twe�
'����
Dim mnuall As New MainMenu
Me.Menu = mnuall
'����
Dim mnufile As New MenuItem
Dim mnufile_new As New MenuItem
mnufile.Text = "��" '
��
��
Visual Basic .NET�������
�
�210�
�210�
mnufile_new.Text = "��"
mnuall.MenuItems.Add(mnufile) '�������
������
�
mnufile.MenuItems.Add(mnufile_new) '�������
����������
+�þ´!'Q�T�A?�)o§¨3
mnufile.MenuItems.Remove(mnufile)
2. ¾��¼½¿À
Hrsûü�%&2¥¦¯Jc1�Q��.+¥¦;(�Q�T�AY(¬J
K�D˯¬JK4ë©Q�T� Click;(�H;(4¥¦¬/A�
3. \v���ÁÂ/0
1) r¼´£T�yzT
A£¼+r~�Q�T�} DefaultItem{|r� True�
2) }´£Tr�£4ûü
A£¼+r~�Q�T�} Checked{|r� True�DQ�T0úËë!'¸
1�2£¼�Q�T� Checked{|Ar� False�
öABHrsûü�ä3�Q�T0ú�4u5�DöËë!'¸1�
3) }Q�£Tr��£
r~Q�T� RadioCheck{|�}ÜÙr� True�DQ�T0úËë!'�£
ÍÎ�
4) r~67
+r~Q�T�67�AHr~Q�T� Text{|D¦&�8±9¦67�)Ar~
´Q�T�db�R�((&F)S�DÒ˯ëHJc1�Q�T�R�((F)S�
Fo��o:;G©Q�T�67� F�
5) �Q�Tr~¡¢7
£¼Q�T�r~ Shortcut{|�Ù��{|ú�<=�Ho>«4£Ü?A�
6) �Q�T¥¦�÷
HrsûüABä3�7�+¥¦�÷
�ð~�H �¡¢Q�4£¤R-
(�÷
S§¨�öAB}©Q�T� Text{|r�R@S�¥¦�÷
�
7) ABVC�Q�T
Q�THteDyz�C·ûü�¾+r�ABûü�AB} Enable {|r�
False�DW³} Enable{|r� TrueD�©Q�T�C·ûü�
8) EFVFGQ�T
EFVFGQ�T�ABõr~©Q�T� Visible {|ºë�³ Visible {|r~
� TrueD©Q�TAG�r~� FalseD©Q�TAG�
4. ��
HH�����4�MDÔÕ³ÏteI�Q�ÈABJÝ�Q�?��])3MD
óZQ�4�!KdböËëH¡¢Q�4�AB?� CloneMenuuv���Q��
L/MNJcôOP�¬)o3
� 7���Windows
������
�211�
�211�
Dim mnufile As New MenuItem
Dim mnuall As New MainMenu
Dim mnufile_new As New MenuItem
HJc�¦Q;(4¥¦)o¬3
Me.Menu = mnuall
mnufile.Text = "��"
mnufile_new.Text = "��"
mnuall.MenuItems.Add(mnufile)
mnufile.MenuItems.Add(mnufile_new)
ÉËHJc1¥¦!'Q��Q�4M!'�(Q�T��(Q�ToM
!'weQ�T�
HJc1¥¦!'ÍÎ�HÍÎ��;(4¥¦)o¬3
Dim mnuclone As New MenuItem
mnuclone = mnufile.CloneMenu
mnuall.MenuItems.Add(mnuclone)
³�Íα�˯Q�1ë�!'k)!'�(Q�T!É�Q�T�
5. §m��
MD»+RS'Q��T�!'�])3�TîJckPJc�Q��
�TQ�#$õ¬�
a�ABç�MergeMenuuv�
o«¬�}Q�Mnuall1kQ�Mnuall2�T�!'Q��
mnuall1.MergeMenu(mnuall2)
6. ÄÅ��
����4MDAr~�'Q��Aåæ³Ïûü�C�[\C�Q��[\Q
�A�)o¬ºë3
Me.Menu = mnuall
1®¬AR³ÏJc�Q�[\� mnuall�
7.2.2 ContextMenu��
ContextMenu `(U�1o�Q��L�¡¢Q��H����d?���@
AõVÐ��L��§¨�L�1o�Q��WXÇ(�TYZk[¼Ç(ò0
�[¼§¨�
!'¡¢Q�AB��'Ç(ef0��\�E'Ç(#$M!'¡¢Q��
kMainMenu`(òC�ContextMenu`(�î+{|ö�MenuItem{|�AB��
r~¡¢Q�T�
1. \v ContextMenu"
] ContextMenu`(4¥¦Q�T�uvkÏ�pq�] MainMenu`(¥¦Q�T
�uv!
�r~Q��!Ký$[|ökMainMenu`(òC�
Visual Basic .NET�������
�
�212�
�212�
Hrsûüo�Aä3^�Á�1R!' ContexMenu `(!·¯Jc1�DJc
1ËëQ��FGR%H&'(S��&�A'(Q�Tdb�
öAB�¬¥¦¡¢Q��o«¬A¥¦!')9 7.5G�¡¢Q��
Dim cmnuedit As New ContextMenu
Dim mnucopy As New MenuItem("��")
Dim mnucut As New MenuItem("��")
Dim mnupaste As New MenuItem("��")
cmnuedit.MenuItems.Add(mnucopy)
cmnuedit.MenuItems.Add(mnucut)
cmnuedit.MenuItems.Add(mnupaste)
� 7.5 ������
2. ÆÇ12��
A��Ç(�Jc>M ContextMenu {|�©{|��¼�_FG¡¢Q��H!
'Jc4�#!'Ç(AB?�'{|�
+ ¡¢Q�MSÛuv�
1) uv!
ä3r~Ç({|�Ûuv`ab��A�U¡¢Q�`ab��Jc�
)9 7.6G�H�Á�1!"!' ContextMenu`(¯Jc1�§� cmnutest�H
rs�4¥¦db�
}FGÐc5� ContextMenu {|r~� cmnutest�}Jc� ContextMenu �{
|ör~� cmnutest�
9 7.7G�Jc°Z±�Ðc5DFG�¡¢Q��
� 7.6
���� � 7.7 ��
������
� 7���Windows
������
�213�
�213�
9 7.6 G�Jc1#M!'Ç(D�de�¾M�'Ç(8f!'¡¢Q��#»
+}Ç(� ContextMenu{|ör~�¡¢Q�?A�
)*�CÇ( C�Q���AB]Jc1�¥¦g'¡¢Q��XCÇ
(� ContextMenu {|r~C�¡¢Q��\+hi�[\Ç(D�ContextMenu {|
ö+jkªO�
2) uvl
MDÒÔÕJc1#M!'¡¢Q��¸UC�Ç(FGC�db�
� SourceControl {|AB¼´!Dµ�½!'Ç(ABFG¡¢Q���
Popup;(AB¼mDFG¡¢Q��
])�}9 7.6 G�Ðc5§� Lbldisp�DFG¡¢Q��H ContextMenu
`(� Popup;(4¥¦)o¬3
Private Sub cmnuedit_Popup(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles cmnuedit.Popup
If cmnuedit.SourceControl Is lbldisp Then
lbldisp.ContextMenu = cmnuedit
End If
End Sub
���
(1) 34¿À¡È
�IYÉVFq� ContextMenutu\� cmnuedit6
(2) 78�¿ÀIÊ12��
ËÌrÍÌÎFq_ÏÐ
*«��Ñ�
Ò�6
(3) 78Y�ÓMainMenuÔÇ�
�*%� CloneMenu5$Ã
%�MergeMenu5$�*Õ���§m�
7.2.3 ��
��
����
+n3rs)9 7.8 GJc�opÐc5�A^ �¡¢Q�4'(o
p�|ÝÐc5�Aä3H�£Î4£qVr�
(a) � !�"#�� (b) �$%�"#��
� 7.8 ��
������
1. FqdXYÔtu\v
JcsIÇ({|r~) 7t1G�
Visual Basic .NET�������
�
�214�
�214�
� 7�1 �������� �
� � � � �
Name Frmcmnu
��
Text &'"#��
Name Txtweek
�() 1
Text *
Name Lblweek
+,) 1
Text -./$%
Name Rbtnmale
� 0 1
Text 1
Name Rbtnfemale
� 0 2
Text 2
Name Grpsex
3 1
Text - 4 !
� 0:?
Private Sub cmnumale_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles cmnumale.Click
rbtnmale.Checked = True
End Sub
Private Sub cmnufemale_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs) Handles cmnufemale.Click
rbtnfemale.Checked = True
End Sub
³�op¡¢Q��Q�TD�FG�Ó�Q�T�db�BHz�}�
'ÍÎʯ!';(z�ÉABb{¬�¬)o3
Private Sub MixedControls_Click(ByVal sender As System.Object, ByVal_
e As System.EventArgs) Handles MenuItem1.Click, MenuItem2.Click,_
MenuItem3.Click, MenuItem4.Click, MenuItem5.Click, MenuItem6.Click,_
MenuItem7.Click
txtweek.Text = sender.text
End Sub
3. 5$Ö
uv!`ab|ºë�\�Hrsûüo+r~�db`a��o�pq�uvl�
î+õ¬�ºë�#]Jc4¥¦!' ContextMenu`(ÓAB��
X ContextMenu `(§� cmnuedit�}Jc�Ðc5 Lblweek�` Grpsex �
ContextMenu{|�r� cmnuedit�
H¡¢Q�� Popup;(4¥¦)o¬3
Private Sub cmnu_Popup(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles cmnuedit.Popup
cmnuedit.MenuItems.Clear()
If cmnuedit.SourceControl Is grpsex Then
cmnuedit.MenuItems.Add("1", New System.EventHandler(AddressOf_
Me.cmnumale_Click))
cmnuedit.MenuItems.Add("2", New System.EventHandler(AddressOf_
Me.cmnufemale_Click))
End If
If cmnuedit.SourceControl Is lblweek Then
cmnuedit.MenuItems.Add("$%@", New System.EventHandler(AddressOf_
Me.cmnu1_Click))
cmnuedit.MenuItems.Add("$%A", New System.EventHandler(AddressOf_
Me.cmnu2_Click))
cmnuedit.MenuItems.Add("$%B", New System.EventHandler(AddressOf_
Me.cmnu3_Click))
cmnuedit.MenuItems.Add("$%C", New System.EventHandler(AddressOf_
Me.cmnu4_Click))
Visual Basic .NET�������
�
�216�
�216�
cmnuedit.MenuItems.Add("$%D", New System.EventHandler(AddressOf_
Me.cmnu5_Click))
cmnuedit.MenuItems.Add("$%E", New System.EventHandler(AddressOf_
Me.cmnu6_Click))
cmnuedit.MenuItems.Add("$%F", New System.EventHandler(AddressOf_
Me.cmnu7_Click))
End If
End Sub
���¼½���Ñ|¼½����×Ø� 6
op¡¢Q��;(&�¬)o3
Private Sub cmnu1_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(0).Text
End Sub
Private Sub cmnu2_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(1).Text
End Sub
Private Sub cmnu3_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(2).Text
End Sub
Private Sub cmnu4_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(3).Text
End Sub
Private Sub cmnu5_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(4).Text
End Sub
Private Sub cmnu6_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(5).Text
End Sub
Private Sub cmnu7_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
txtweek.Text = cmnuedit.MenuItems(6).Text
End Sub
Private Sub cmnufemale_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs)
rbtnfemale.Checked = True
End Sub
|Ý¡¢Q��;(&�¬)o3
Private Sub cmnumale_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs)
rbtnmale.Checked = True
End Sub
� 7���Windows
������
�217�
�217�
7.3 �����
�Áï�WindowsJc4L��
���UFG!«Q�£T�A}¶§¨�ð
9ÍÎ��!'ÍÎÓò³UyZ�!'§¨�
H Visual Basic .NET4��Áï�õ ToolBarÇ(�ºë��ToolBarÇ(AB~
H_JK�ó��öAB~HJK�!ú��@ABªO ToolBar �Vi!
·�³RVÐ ]�ÁïÍÎD�ABFG�ÁïYG�
7.3.1 ����
��
A^�Á�]Jc!"!' ToolBarÇ(�¥¦�!'#$�Áï�Jc)9 7.9G�
� 7.9 ����� !��
�ÁïL�{|)o3
� Appearance {| r~�ÁïÍÎ���ÜÙ� Normal D��ÁïÍÎB
�ÌgêFG�ÜÙ� Flat��Áï�1�ÍÎ>Bá�êFG�³
·á�ÍÎD�©ÍÎ��OaÌgû�¾+Há��Áï1r~�÷;�A
}ÍÎ� Style{|Ùr� Separator�
� Buttons {| r~ÍÎ��£4©{|�*±�ú�ÍÎ�A%&
ToolBarButton�¸5�
� ButtonSize{| r~�Áï4ÍÎ��4�
� ImageList{| r~��ÁïYZ9Ð� ImageListÇ(�
� ShowToolTips{| )*�ÁÍÎMYGD�r~�_FGYG�
� TextAlign{| r~ÍÎ�Ö«uê�
� Wrappable{| r~�_�ZÍÎ�
7.3.2 �����������
]�Áï1¥¦V�þÍÎABä3õr~{|�ºë�öABõ��ºë�
Visual Basic .NET�������
�
�218�
�218�
1. \]ÙÚ¼½ÛÜÝ���¬Þ
£¼�Áï�H{|JK4 ¯ Buttons {|��ú�ÍÎ�A%&
ToolBarButton���)9 7.10G�
� 7.10 "ToolBarButton#$%&'(
�¥¦ÍÎA]�Áï4¥¦ÍÎ��þÍÎAþ2¥¦�ÍÎ�
ÍÎ�L�{|M3
� Style {| Ar~ÍÎ����ÜÙ� PushButton D��ÍÎ�ÜÙ�
ToggleButtonD�)!"ÍoDíÍoûü�9"ÍoD �ÜÙ� Separator
D�ÍÎFG��ø�ÜÙ� DropDownButton D��o>ÍÎ�»kQ�W�
?��
� DropDownMenu{| ³ÍÎ� Style{|r� DropDownButtonD�r~Ho>�
ÁïÍÎ4FG�Q��
� PartiaPush{| ³ÍÎ� Style{|r� ToggleButtonD�r~[\���ÍÎ�
_���o�
� Pushed{| ³ÍÎ� Style{|r� ToggleButtonV PushButtonD�r~[\�
���ÁïÍγÏ�_&Uoûü�
� Text{| r~ÍÎ1FG��<�
� ToolTipText{| r~ÍÎ��ÁYG4FG��<�
� Imageindex{| r~�Áï¼� ImageListÇ(4¸��9Ð�
���xr¬Þ� Styletu\� DropDownButton|
Y\v<ß���¬Þ¯°
���6à|�r ContextMenu á���Õâ~�
�6ã�*Fqä¼½��
12��
r<߬Þ� DropDownMenutu\�12��ã�6
� 7���Windows
������
�219�
�219�
2. *å�5S¼½ÛÜݬÞ
¥¦ÍÎAB?� Adduv�þ2MÍÎAB?� disposeuv�
o«¬]�Áï1¥¦� 4 'ÍÎ�T�Ýr~�IÍÎ����CD�4�o
>ÍÎ¥¦ Q��
'GHIJ���K0
ToolBar1.Buttons.Add("LM")
ToolBar1.Buttons.Add("NO")
ToolBar1.Buttons.Add("PQR")
ToolBar1.Buttons.Add("ST")
'&'K0: Style;
ToolBar1.Buttons(0).Style = ToolBarButtonStyle.DropDownButton
ToolBar1.Buttons(1).Style = ToolBarButtonStyle.PushButton
ToolBar1.Buttons(2).Style = ToolBarButtonStyle.Separator
ToolBar1.Buttons(3).Style = ToolBarButtonStyle.ToggleButton
'��UVK0:��
Dim cmnuedit As New ContextMenu
Dim cmnu1 As New MenuItem("��")
Dim cmnu2 As New MenuItem("WX")
Dim cmnu3 As New MenuItem("Y=")
cmnuedit.MenuItems.Add(cmnu1)
cmnuedit.MenuItems.Add(cmnu2)
cmnuedit.MenuItems.Add(cmnu3)
ToolBar1.Buttons(0).DropDownMenu = cmnuedit
'ÍÎD?��Q�TIT{|
r~) 7t4G�
� 7�4 ;<��:��� �
� � � � �
Name cmnuwhite
��
1
Text g
Name cmnuyellow
��
2
Text g
Name cmnugray
��
3
Text g
4. ¼½m\v���
]Jc1¥¦�Áï Toolbar1Ç(� ImageListÇ(�TX ImageListÇ(¥¦ '9
Ð�H�Áï1¥¦ 6'ÍÎ�I{|r~) 7t5G�
� 7���Windows
������
�223�
�223�
� 7�5 �� -.�� �
� � � � �
Style PushButton
Text g HIJK0 1
ImageIndex 1
Style PushButton
Text g HIJK0 2
ImageIndex 2
Style PushButton
Text g HIJK0 3
ImageIndex 3
Style PushButton
Text g HIJK0 4
ImageIndex 4
HIJK0 5 Style Separator
Style DropDownButton
Text ifg
DropDownMenu cmnuback
HIJK0 6
ImageIndex 5
5. ¿À\v
H<��4��ÁïkQ�ï
a�ý$�!É��BABR¬ÊHõ�4��
ÝH�ÁÍÎ��;(�Q�T��;(4ç�?A�
1) r~¡�Iõ�¬)o
Sub blue()
rtfcolor.ForeColor = System.Drawing.Color.Blue
End Sub
Sub black()
rtfcolor.ForeColor = System.Drawing.Color.Black
End Sub
Sub red()
rtfcolor.ForeColor = System.Drawing.Color.Red
End Sub
Sub green()
rtfcolor.ForeColor = System.Drawing.Color.Green
End Sub
Sub white()
rtfcolor.BackColor = System.Drawing.Color.White
End Sub
Sub yellow()
rtfcolor.BackColor = System.Drawing.Color.Yellow
Visual Basic .NET�������
�
�224�
�224�
End Sub
Sub gray()
rtfcolor.BackColor = System.Drawing.Color.Gray
End Sub
2) HóZQ�IQ�T�;(
¬)o3
Private Sub mnubefore_blue_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs) Handles mnufore_blue.Click
Call blue()
End Sub
Private Sub mnufore_red_Click(ByVal sender As System.Object, ByVal e As_
System.EventArgs) Handles mnufore_red.Click
Call red()
End Sub
Private Sub mnufore_green_Click(ByVal sender As System.Objec
本文档为【【VB.Net】[入门级实例-多文本编辑器]】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。