Article View: cn.bbs.comp.program
Article #1273����VB����WINDOWS�µĶ�̬�˵�
From: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
Date: Sat, 18 Apr 1998 00:00
119 lines
7722 bytes
7722 bytes
�˵���Windows�е�һ����Ҫ��Դ,��Ӧ�ó������ڶ�IJ�������
��ȷ����,ͬʱ��϶༶������Ի�����,ʹ������dz�����,��֮��
���Խ�ʡ��������Ļ�ռ���ŵ�,ʹ�����ڵ�Windows�����һ�����
�����˲˵���Դ����̬�˵��ǶԳ���˵���һ����չ,��ɸ����
���IJ������ݶ�̬�������֮�йصIJ˵����ɾ���صIJ˵���,��
��,�˵��е�ѡ����ǹ̶�������ˡ�����:����������File�˵�
�п����Զ�����Ӳ��ı�˵���,���Ա������ε��ù���ļ���
��
���汾�Ľ���VB4.0����Ϊ��������,ͨ��һ���������ʵ�����
����������Լ���Win dows�����п�������̬�˵���
VB�ṩ����������Աһ����ͼ1��ʾ�IJ˵������,�ø������
�ڳ����м���˵�����ʮ��������ʮ���������顪������ֻ����д
һ��"���",�Ϳ��Բ���һ��֧�ֶ༶�������ȼ�����ȹ�����ȫ��W
indows���˵���
���ò˵�����������Բ�����в˵�����������IJ˵����˵�
��������������һ�������˵������,��Щ�˵�����¼���̺�
һ�����õ����֡�ÿ���˵������Ψһ������ֵ(Index),�����е�
�˵������ͬ��Nameֵ��������������������ɶ�̬�˵���ǰ��,
��������߿���ָ��������IJ˵���Ϊһ������������,Ȼ��,�Ϳ�
���������ڼ�,ͨ������˵����������鶯̬�ؼ����ɾ��˵�����
��
�������ж���˵�����������IJ���Ϊ:
1.����һ���˵���;
2.��Index���ֿ�������һ����ֵ,���ֵ���ò˵����ڿ�����
���е�λ��;
3.�ٴ���������ͬ����������(NAME)����һ���˵���: ͼ1 VB4.
0�в˵������ʵ�����н���
4.��Index���ֿ���������һ����ͬ����ֵ;
5.��������˵����ظ�����2��4��
VB�������������ķ�������:�������е�ijһ����������Ӧһ
���¼���,VB�͵�����Ӧ���¼����,�����˵��������ֵ��Ϊ����
�ݸ�ù��,ʹ�������жϳ��ĸ�������Ӧ����Ӧ����¼���
�����²��轨�����Ӧ�ó���:
����1:ʹ��ȱʡ�Ĵ���,����������Ϊ"��̬�˵���ʾ����"��
����2:���Ͽ����
�ڱ����п�����Ϊ�������ťCommand1��Command2,�ֱ�����
�����Ӳ˵����ɾ��˵���Ĺ���,���ֱ�����Ϊ"��Ӳ˵���"��"
ɾ��˵���"��
����3:���ϲ˵���
�˵��������ʵ��������ͼ1��ʾ:���������˵���,����"��ʾ��
��"Ϊ���˵���;"�˳���ʾ"�����˳��ó���,����ʼ���ǿɼ��;����
�����˵���,����һ��Caption����Ϊ��,Nam eΪMenu,Indexֵ��Ϊ0,
���ڲ���˵�����������,��һ��Ϊ���߷�"��",���ڷָ���ʾ,����
����ʼ��Ϊ���ɼ�˵���,���ڳ�������й����ʹ�á�
����4:��д�¼��Ͳ˵���ͨ�ù�̡�
�������ڼ���Load��䶯̬�ذ�һ���˵���ӵ��˵�����������
:
Load menuname(menunum)
�������ڼ���Unload��䶯̬��ɾ��˵����������е�ij���˵�
��:
Unload menuname(menunum)
ͼ2 ��Ӷ�̬�˵�ǰ������ʵ��
ͼ3 ��Ӷ�̬�˵��������ʵ��
˵��:menuname�Dz˵��������,menunum�Dz˵��������ֵ,����
������ȫ�ֱ���,�ڳ����ͨ��������������������ʵ��������
����ͼ2��ͼ3��ʾ,����ͼ2Ϊ��Ӷ�̬�˵���֮ǰ�IJ˵����,ͼ3Ϊ
��Ӷ�̬�˵���֮��IJ˵������
�����嵥����:
��ȫ�ֱ���������
Dim menunum As Integer
Dim menuname As String
����Ӷ�̬�˵���Ĺ��
Private Sub Command1_Click()
msg$="����������ӵIJ˵������:"
menuname$=InputBox$(msg$,"�˵����������")
If menuname$="" Then Exit Sub����Cancle�Ĵ���
menunum=menunum+1
If menunum >0 And menu_line.Visible=0 Then
menu_line.Visible=-1
Load Menu(menunum)
Menu(menunum).Caption=menuname$
Menu(menunum).Visible=-1
End Sub
��ɾ��̬�˵���Ĺ��
Private Sub Command2_Click()
If menunum=0 Then Exit Sub
num%=0
msg$="��������ɾ��IJ˵�������:"
menuname$=InputBox$(msg$"�˵����������")
If menuname$="" Then Exit Sub����Cancle�Ĵ���
For i%=1 To menunum
If Menu(i%).Caption=menuname$ Then
num%=i%
Exit For
End If
Next i%
If num% > menunum Or num% < 1 Then
MsgBox"��ƥ��IJ˵���!"
Exit Sub
End If
For i%=num% to menunum1
Menu(i%).Caption = Menu(i%+1).Caption
Next i%
Unload Menu(menunum)
menunum=menunum1
If menunum=0 Then
menu_line.VisibIe =0
End Sub
��"�˳���ʾ"�˵�������
Private Sub exit_Click()
End
End Sub
�������ʼ��
Private Sub Form_Load()
menunum=0
menuname=""
End Sub
����Ӻ�Ķ�̬�˵����������Ӧ
Private Sub Menu_Click(Index As Integer)
MsgBox("����"+Menu(Index).Caption+"�˵�����¼���Ӧ")
End Sub
--
[m[1;32m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Technical Details
Message-ID:
<3O9ib6$tX2@bbs.nju.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,9c43fb437faec786,start X-Google-Attributes: gidfc86e,public From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ) Subject: ����VB����WINDOWS�µĶ�̬�˵� Date: 1998/04/18 Message-ID: <3O9ib6$tX2@bbs.nju.edu.cn> X-Deja-AN: 345408790 X-Filename: Programming/M.892912374.A Organization: nju_bbs Newsgroups: cn.bbs.comp.program