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

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

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;使用時先選取所需排列控件 ,然后選此菜單項即可。

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 一区二区在线欧美日韩中文 | 欧美性狂猛bbbbbxxxxx | 欧美高清一区二区 | 涩涩五月天婷婷丁香综合社区 | 国产免费人成在线视频视频 | 天天摸天天摸色综合舒服网 | 国产成人久久精品 | 五月开心六月伊人色婷婷 | 免费人成在线观看播放国产 | 五月天网站最新永久网址 | 99香蕉国产线观看免费 | 久色福利| 久久一区二区精品综合 | 欧美一级视频在线观看 | 国产午夜高清一区二区不卡 | 国产精品视频观看 | 欧美日韩国产亚洲综合不卡 | 欧美一级www片免费观看 | 一本色道久久综合狠狠躁 | 日本激情网址 | 日本无卡码免费一区二区三区 | 国产国语一级毛片 | 日本精品久久久久久久久免费 | 日日噜噜爽爽狠狠视频 | 黄免费视频 | 国产精品黄网站免费观看 | 免费福利视频网址 | 97国产精品视频 | 国产欧美日韩精品a在线观看 | aiai视频在线观看 | 国产午夜精品久久久久 | 国产免费黄色网址 | 在线观看视频欧美 | 久草成人在线 | 波多野一区二区三区在线 | 国产精品久久久久aaaa | 成人免费看吃奶视频网站 | 在线免费观看中文字幕 | 欧美成人在线视频 | 亚洲精品日韩精品一区 | 一本视频在线 |