日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

VB技巧擴展

VB技巧擴展

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

     我們在設計一個VB窗體時, 常常放上許多控件, 為了使這些控件看上去整整齊齊,我們不得不設置一大堆Left、 Top、 Height、 Width屬性, 您是否已經感到厭煩并想轉向Powerbuilder或 Delphi等別急, 讓我們現在就來擴展一下VB的功能。  

VB4.0提供了一個新功能:Add-Ins, 利用這一功能我們就可以把自己的程序加到VB4的系統菜單Add-Ins里去, 作為VB的擴展功能。 我們設計的程序將具有以下功能: 選取窗體上某些控件后, 通過菜單選取, 使它們大小相同、間距相同、邊緣對齊等等。有了這些功能,我們設計界面時就能節省大量時間,大大提高工作效率。限于篇幅,這里只介紹其中一個功能:使所選取控件從左到右大小相同。理解了這段程序,其它功能就很容易實現了。 首先建一個新項目:alignment.mark,不需要任何窗體,在Tools菜單里選Project Options, 將 Project Name設為\Exam”,將Start Mode設為Object Application后退出。然后在菜單Ins ert里選取ClassModule,建立一個新類,屬性設置如下:  

Name="HSizeAlign";Creatable=False;Public=True 輸入以下程序:  
Public VBInstance As Object ’當前所運行的VB
Private TheseControls As Object
Private Control As Onject ’控件對象變量
Private AllHeight As Long
Private AllWidth As Long
Private MinLeft As Long ’標記最左邊界值
Public Sub AfterClick()
MinLeft=99999 ’設一極大初值
Set ThereControls = VBInstance.ActiveProject.Ac - tiveForm.SelectedControlTemplates
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 Control In 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 Long
Sub ConnectAddIn(VBInstance As Object)
’加入菜單項,進行連接
Set ThisInstance=VBInstance
Set HSizeAlignMenu=ThisInstance.AddinMenu.
MenuItems.Add("HSize Alignment")
Set HSizeAlignHandler.VBInstance=ThisInstance
HSizeConnectCookie=HSizeAlignMenu.ConnectEvents
(HSizeAlignHandler)
End Sub
Sub DisconnectAddIn(Mode As Integer)
’解除連接,刪除菜單項
HSizeAlignMenu.DisconnectEvents HSizeConnect-Cookie
ThisInstance.AddinMenu.MenuItems.Remove HSizeAlignMenu
End Sub
再加入一個Module,輸入以下程序:
Declare Function WritePrivateProfileString Lib
"KERNEL"(ByVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal FileName$)
Declare Function GetPrivateProfileString Lib
"KERNEL"(ByVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal ReturnString$,By
Val NumBytes As Integer,ByVal FileName$)
’以上說明可用API Text Viewer拷貝
Sub Main()
Dim ReturnString As String
Section$="Add-Ins16"
ReturnString=String$(255,Chr$(0))
ErrCode=GetPrivateProfileString(Section$,
"Exam.Alignment","NotFound",ReturnString,Len(ReturnString)+1,"VB.INI")
If Left(ReturnString,InStr(ReturnString,Chr(0))-1)="NotFound"Then
ErrCode=WritePrivateProfileString%(Section$,"Exam.Alignment","0","VB.INI")
End If
End Sub

’Exam.Alignment里,\Exam”為項目名,\Alignment”為與Add-In菜單連接的類名。以上程序編譯運行后,在VB菜單Add-Ins里選取Add-In Manager,將彈出一對話框,選取Exam. Alignment后退出,Add-Ins菜單里就多了一項HSize Alignment;使用時先選取所需排列控件 ,然后選此菜單項即可。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 日本精品久久久一区二区三区 | 国产欧美曰韩一区二区三区 | www.在线观看.com | 在线观看日本免费视频大片一区 | 亚洲精品综合一区二区三区在线 | 国产成人综合日韩精品无 | 水蜜桃免费视频 | 波多野结衣免费免费视频一区 | 久久机热这里只有精品33 | 国产精品极品美女自在线观看 | 国产精品久久免费 | 精品欧美高清不卡在线 | 四虎影院永久网站 | 女网址www女大全小 女网址www女高清 | 就去吻亚洲精品国产欧美 | 欧美一区二区影院 | 免费人成在线观看网站 | 蜜月tv| 天天干天天操天天透 | 99久久国产亚洲综合精品 | 欧美成人高清视频 | 玖玖在线资源站 | 亚洲视频在线观看网站 | 国产精品麻豆免费版 | 婷婷三级 | 日本高清在线精品一区二区三区 | 91精品国产免费久久久久久 | 伊人婷婷 | 亚洲精品丝袜在线一区波多野结衣 | 国产视频福利 | 女人18水真多毛片免费观看 | 国产男女视频在线观看 | 色天天躁夜夜躁天干天干 | 91精品国产91久久 | 国产成人精品区在线观看 | 欧美洲久久日韩欧美 | 五月天婷婷综合网 | 日本免费毛片在线高清看 | 欧美国产第一页 | 免费99热在线观看 | 2020国产欧洲精品视频 |