🚀 go-pugleaf

 ���������һ��VB����ʱ,�����������ؼ�,Ϊ��ʹ��Щ�ؼ�����
ȥ��������,���Dz��ò�����һ���Left��Top��Height��Width����,
���Ƿ��Ѿ��е��ᷳ����ת��Powerbuild er��Delphi�ȱ�,������
���ھ�����չһ��VB�Ĺ��ܡ�
    VB4.0�ṩ��һ���¹���:Add-Ins,������һ�������ǾͿ��԰���
���ij���ӵ�VB4��ϵͳ�˵�Add-Ins��ȥ,��ΪVB����չ���ܡ�����
��Ƶij��򽫾������¹���:ѡȡ������ijЩ�ؼ���,ͨ��˵�ѡȡ,
ʹ���Ǵ�С��ͬ�������ͬ����Ե����ȵȡ�������Щ����,������
�ƽ���ʱ���ܽ�ʡ����ʱ��,�����߹���Ч�ʡ�����ƪ��,����ֻ��
������һ������:ʹ��ѡȡ�ؼ������Ҵ�С��ͬ���������γ���,
�����ܾͺ�����ʵ���ˡ�
    ���Ƚ�һ������Ŀ:alignment.mark,����Ҫ�κδ���,��Tools��
����ѡProject Optio ns,��Project Name��Ϊ\Exam",��Start Mode
��ΪObject Application���˳���Ȼ���ڲ˵�Insert��ѡȡClassMod
ule,����һ������,������������:
    Name="HSizeAlign";Creatable=False;Public=True
    �������³���:
    Public VBInstance As Object ����ǰ�����е�VB
    Private TheseControls AsObject
    Private Control As Onject ���ؼ��������
    Private AllHeight As Long
    PrivateAllWidth As Long
    Private MinLeft As Long ���������߽�ֵ
    Public Sub AfterClick()
    MinLeft=99999 ����һ�����ֵ
    Set ThereControls=VBInstance.ActiveProject.ActiveForm.Se
lectedControlTemplates
    For Each Control In TheseControls
    If Control.Properties("Left")<MinLeft Then
      AllHeight=Control.Properties("Height")
      AllWidth=Control.Properties("Width")
      MinLeft=Control.Properties("Left")
    End If
    Next
    For Each ControlIn TheseControls
      Control.Properties("Height")=AllHeight
      Control.Properties("Width")=AllWidth
    Next
    End Sub

    �ٶ���һ������,������������:
    Name="Alignment";
    Creatable=True;
    Public=True
    Dim ThisInstance As Object
    Dim HSizeAlignMenu As Object
    Dim HSizeAlignHandler As New HSizeAlign
    Dim HSizeConnectCookie As LongSub ConnectAddIn(VBInstanc
e As Object) 
    ������˵���,��������
    Set ThisInstance=VBInstance
    Set HSizeAlignMenu=ThisInstance.Addin
    Menu.MenuItems.Add("HSize Alignment")
    Set HSizeAlignHandler.VBInstance=ThisInstance
    HSizeConnectCookie=HSizeAlignMenu.ConnectEvents(HSizeAli
gnHandler)
    End SubSub DisconnectAddIn(Mode As Integer) 
    ���������,ɾ��˵���
    HSizeAlignMenu.DisconnectEvents HSizeConnect-Cookie
    ThisInstance.AddinMenu.MenuItems.Remove
    HSizeAlignMenu
    End Sub

    �ټ���һ��Module,�������³���:
    Declare Function WritePrivateProfileString Lib"KERNEL"(B
yVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal FileNam
e$)
    Declare Function GetPrivateProfileString Lib"KERNEL"(ByV
al AppName$,ByVal K eyName$,ByVal keydefault$,ByVal ReturnSt
ring$,ByVal NumBytes As Integer,ByVal F ileName$)

    ������˵������API Text Viewer����
    Sub Main()
    Dim ReturnString As String
    Section$="Add-Ins16"
    ReturnString=String$(255,Chr$(0))
    ErrCode=GetPrivateProfileString(Section$,"Exam.Alignment
","NotFound",Return String,Len(ReturnString)+1,"VB.INI")
    If Left(ReturnString,InStr(ReturnString,Chr(0))-1)="NotF
ound"ThenErrCode=Wri tePrivateProfileString%(Section$,"Exam.
Alignment","0","VB.INI")
    End If
    End Sub

    ��Exam.Alignment��,\Exam"Ϊ��Ŀ��,\Alignment"Ϊ��Add-In
�˵����ӵ��������ϳ���������к�,��VB�˵�Add-Ins��ѡȡAdd-
In Manager,������һ�Ի���,ѡȡExam.Alig nment���˳�,Add-Ins
�˵���Ͷ���һ��HSize Alignment;ʹ��ʱ��ѡȡ�������пؼ�,Ȼ
��ѡ�˲˵���ɡ�
    ����������л���Ϊ:VB4.0,Windows 3.1;486 DX2/66 8M��

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]