在VB中怎么做OCX控件？利用c#自制ocx控件如今OCX控件在測(cè)試中已占領(lǐng)了很重要的地位,我們可以利用OCX控件完成一些相當(dāng)復(fù)雜的語(yǔ)言操作。同時(shí)OCX控件還有利于主程序的簡(jiǎn)單化、功能的重用、隱藏程序

在VB中怎么做OCX控件？

利用c#自制ocx控件如今OCX控件在測(cè)試中已占領(lǐng)了很重要的地位,我們可以利用OCX控件完成一些相當(dāng)復(fù)雜的語(yǔ)言操作。同時(shí)OCX控件還有利于主程序的簡(jiǎn)單化、功能的重用、隱藏程序?qū)崿F(xiàn)細(xì)節(jié)、便于升級(jí)、傳播方便等優(yōu)點(diǎn)?，F(xiàn)在我們可以利用c#6.0方便地制作出自己的OCX控件供我們?cè)谡Z(yǔ)言中使用，同時(shí)還可以把它送給你周?chē)矚g建模的朋友!下面列出制作OCX控件的步驟：一：新建OCX打開(kāi)ruby6.0選擇新建工程在對(duì)話(huà)框中選擇ActiveX控件，打開(kāi)后會(huì)見(jiàn)一空的文檔，這就是OCX控件的初始界面。想看一看空OCX控件的效果嗎?選擇“添加工程”選中標(biāo)準(zhǔn)EXE，這時(shí)你就可以像調(diào)用其它控件一樣在左邊的工具欄里選擇你之前新建的OCX控件圖標(biāo)，放在標(biāo)準(zhǔn)的EXE文檔中看一看有什么效果!(什么也沒(méi)有!)自然因?yàn)樗暗腛CX文檔是空的嘛。二：創(chuàng)建界面一般我們用ruby創(chuàng)建OCX控件都是在我們的控件里添加其它的控件來(lái)組合成一個(gè)完整的控件（也可以讓它只完成某種算法），比如：你可以在上面添加一按鈕、編輯框，這時(shí)你再用第一部的方法看一看效果，是不是控件上多了一個(gè)按鈕和一個(gè)編輯框。三：OCX屬性一個(gè)OCX控件有許多的屬性，比如控件背景是否透明（BackStyle），控件是否可以獲得焦點(diǎn)(CanGetFocus)等。這些屬性都可以在控件的“屬性框”中找到。四：添加事件一個(gè)控件有很多事件，如：navigate、MouseDown、MouseUp、MouseMove等。要觸發(fā)這些事件都需要你加入代碼。在控件的聲明處加入PublicEventput()就表明該控件有一“put”事件。自己編寫(xiě)的控件有什么事件就在聲明處加幾條事件。關(guān)于觸發(fā)事件是使用“RaiseEvent”語(yǔ)句來(lái)完成的，如：RaiseEvent事件名（參數(shù)）。五：用戶(hù)屬性一個(gè)控件應(yīng)有許多屬性供用戶(hù)設(shè)置，如：控件的背景色、控件要顯示的圖形等。它們通常用PropertyGet和Property Let兩條語(yǔ)句來(lái)完成。前者表示給用戶(hù)顯示一個(gè)屬性的值，后者表示用戶(hù)設(shè)置一個(gè)屬性的值。六：保存屬性和讀取屬性當(dāng)屬性被用戶(hù)更改后需要將該屬性值保存，以便控件運(yùn)行時(shí)讀取更改后的屬性值。它們分別用ReadProperty和WriteProperty兩種方法來(lái)完成。前者表示讀取一個(gè)屬性值，后者表示寫(xiě)入一個(gè)屬性值。好了，一個(gè)簡(jiǎn)單的OCX控件制作方法大概就需要以上幾步就可完成。有興趣的朋友不妨一試。代碼：Private Sub Command1_Click()aVal(Text1.Text)b Val(Text2.Text)Calladd(a,b)EndSubPrivatessaadd(ByValaAsInteger,ByVal bAsInteger)abEndidx

vb中怎么實(shí)現(xiàn)按鍵顯示W(wǎng)ord文檔？

Option ExplicitPrivate Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA(ByValhwndAs Long,_ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,_ByVallpDirectoryAsString,ByVal nShowCmdAs Long)AsLongPrivate Sub Command1_Click()ShellExecuteMe.hwnd,open,,vbNullString,vbNullString,3End SubPrivate Sub Command2_Click()DimWordAppAsSet WordApp New()TrueSetWordAppNothingEndsami