㈠ vb6 怎麼修改自定義控制項的圖標
首先隨便找一個VB6.0程序進行編譯：在「文件」菜單下選擇生成exe命令，在彈出的生成工程對話框中按確定按鈕即可：
通過以上編譯過程，生成了一個exe可執行文件，圖標是VB6.0默認的圖標(由於ico屬性未修改)，非常不美觀。
接下來去互聯網下載自己喜歡的ICO圖標，然後通過窗體Form1的ico屬性進行添加。
在電腦中隨便選擇一個喜歡的ico圖標，結果彈出如下對話框：圖標載入失敗。
那是由於剛剛載入的ico圖標不符合VB6.0的格式要求。VB6.0圖標需要滿足以下幾點：
色深：256色
尺寸：支持48 x 48（像素）或以下
格式：ico（就是Windows下的圖標格式）
緊接著再對這個圖標進行載入：可以看到圖標已經成功載入。
對VB6.0程序進行編譯，生成如圖所示星形圖標，比較美觀。用戶可以根據自己需要記載滿足VB6.0格式要求的各種圖標。
㈡ VB6.0MouseIcon屬性設置了自定義圖標的問題
選中要設置的控制項,然後把MouseIcon設置成你要的Ico文件,把MousePointer設置為99 Custom
㈢ win10 系統如何在VB6中添加ActiveX控制項
對於這個控制項，首先查下QRmaker這個二維碼控制項是否支持win10？vb6本身就對xp以上系統不兼容，建議安裝個xp虛擬機！在虛擬機里玩vb6吧！
㈣ 用VB創建activex控制項
Active Document DLL, Active Document EXE,這種技術基本淘汰
ActiveX exe 進程外組件
ActiveX DLL 進程內組件
所謂 ActiveX 部件是指一些可執行的代碼，比如一個 .exe，.dll 或 .ocx 文件，它們在提供對象時遵循 ActiveX 的規范。通過 ActiveX 技術，程序員就能夠把這些可復用的軟體部件組裝到應用程序或者服務程序中去了。
可以購買提供一般服務的 ActiveX 部件，比如數值分析或用戶界面等部分。也可以創建一些部件把自己的業務封裝後，再和一般的部件組合起來。以這種方式復用經過測試和標准化了的代碼就叫做部件軟體開發。
不要把使用 ActiveX 技術的部件軟體開發和面向對象編程 (OOP) 混淆起來。使用 OOP 方法可以建立基於對象的軟體部件；使用 ActiveX 技術可以把已創建的基於對象的部件組合起來，而這些部件可以通過許多不同的工具來創建。換一種說法就是，OOP 關心的是創建對象，而 ActiveX 關心的是使對象在一起工作。
例如，可以使用諸如 Microsoft Visual C++ 之類的 OOP 工具構造一套有用的對象。其他 C++ 的開發人員可以使用和進一步擴充這些對象。然而，如果在一個 ActiveX 部件中裝進了這些對象，那麼，其它任何支持 ActiveX 技術的編程工具也就能夠使用和進一步擴充它們了。
Active是一套規范，符合這套規范的Exe就是Active Exe，就像OLE和COM一樣。
Active Exe可以被其他標准exe和Active Exe像調用組件一樣使用，與Active Dll不同，Active exe是進程外調用，在這方面它有exe的一點特性。
㈤ VB製作OCX控制項
利用vb自製ocx控制項
如今OCX控制項在編程中已佔領了很重要的地位,我們可以利用OCX控制項完成一些相當復雜的編程操作。同時OCX控制項還有利於主程序的簡單化、功能的重用、隱藏程序實現細節、便於升級、傳播方便等優點。現在我們可以利用VB 6.0方便地製作出自己的OCX控制項供我們在編程中使用，同時還可以把它送給你周圍喜歡編程的朋友!下面列出製作OCX控制項的步驟：
一：新建OCX
打開VB 6.0選擇新建工程在對話框中選擇ActiveX控制項，打開後會見一空的文檔，這就是OCX控制項的初始界面。想看一看空OCX控制項的效果嗎?選擇「添加工程」選中標准EXE，這時你就可以像調用其它控制項一樣在左邊的工具欄里選擇剛才新建的OCX控制項圖標，放在標準的EXE文檔中看一看有什麼效果!(什麼也沒有!)自然因為剛才的OCX文檔是空的嘛。
二：創建界面
一般我們用VB創建OCX控制項都是在我們的控制項里添加其它的控制項來組合成一個完整的控制項（也可以讓它只完成某種演算法），比如：你可以在上面添加一按鈕、編輯框，這時你再用第一部的方法看一看效果，是不是控制項上多了一個按鈕和一個編輯框。
三：OCX屬性
一個OCX控制項有許多的屬性，比如控制項背景是否透明（BackStyle），控制項是否可以獲得焦點(CanGetFocus)等。這些屬性都可以在控制項的「屬性框」中找到。
四：添加事件
一個控制項有很多事件，如：Click、MouseDown、MouseUp、MouseMove等。要觸發這些事件都需要你加入代碼。在控制項的聲明處加入Public Event Click()就表明該控制項有一「Click」事件。自己編寫的控制項有什麼事件就在聲明處加幾條事件。關於觸發事件是使用「RaiseEvent」語句來完成的，如：RaiseEvent事件名（參數）。
五：用戶屬性
一個控制項應有許多屬性供用戶設置，如：控制項的背景色、控制項要顯示的圖形等。它們通常用Property Get和Property Let兩條語句來完成。前者表示給用戶顯示一個屬性的值，後者表示用戶設置一個屬性的值。
六：保存屬性和讀取屬性
當屬性被用戶更改後需要將該屬性值保存，以便控制項運行時讀取更改後的屬性值。它們分別用ReadProperty和WriteProperty兩種方法來完成。前者表示讀取一個屬性值，後者表示寫入一個屬性值。
好了，一個簡單的OCX控制項製作方法大概就需要以上幾步就可完成。有興趣的朋友不妨一試。
代碼：
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Call add(a, b)
End Sub
Private Sub add(ByVal a As Integer, ByVal b As Integer)
Label1.Caption = a + b
End Sub
㈥ vb6.0 按鈕控制項怎麼加圖標
vb6.0activex
控制項是：
1）通過工程-部件。
2）在部件對話框勾選所需要的控制項-確定，就可將所需activex
控制項添加到工具箱。
3）雙擊工具箱所需控制項，添加到窗體，然後雙擊窗體上的該控制項，編寫該該控制項的應用程序代碼。
㈦ vb.動態添加 ActiveX控制項
對於未注冊（未引用）的控制項：在運行時添加未引用的控制項
您也可以利用 Add 方法來動態添加一個在工程中沒有被引用的控制項。(「未引用的」控制項是不出現在 Toolbox 中的控制項)。為此，您必須也把控制項的License 關鍵字添加到 Licenses 集合中。下面的示例中在添加控制項本身之前添加了控制項的許可證關鍵字： Option Explicit Private Sub Form_Load()
Licenses.Add "prjWeeks.WeeksCtl", "xydsfasfjewfe" //添加引用，必須。
Set extCtl = Form1.Controls.Add("prjWeeks.WeeksCtl", "ctl1")
extCtl.Visible = True ' The control is invisible by default.
End Sub
㈧ VB activex ocx控制項 菜單編輯器
ocx控制項對於開發過Windows應用的朋友來說一定不會陌生，它以外部component的形式對程序提供強大的支持，如VB工具欄中的picturebox、label、image等都是ocx控制項。然而要開發自己的ocx卻有一定難度，以前程序員大都用cdk (control develop kit)來設計，但是這需要掌握相當的c語言技巧，其實VB從5.0開始就支持ocx控制項開發，我們可從VB的samples中找到一些例子，然而這些例子比較抽象，不好理解，下面請跟我一起來做個十分實用的ocx控制項，你只要懂一些VB編程基礎就可以了！
大家對Windows的菜單非常熟悉，這種統一格式的灰色菜單有時並不能滿足一些應用程序的要求，特別是那些對界面要求比較高的多媒體設計。問題是，VC、VB中提供的菜單編輯器並不支持圖形菜單功能!不要著急，我們馬上自己來開發一個!
創建 menus工程
首先打開VB6.0,在新建工程中選擇Activex 控制項, 這時設計窗口出現一個類似form表單的界面 這就是你的ocx設計器,預設名為UserControl1。
1. 在"工程"菜單上單擊"Project1 屬性"，打開"工程屬性"對話框。選擇"通用"選項卡，將工程名稱改為menus
2. 在UserControl1 的"屬性"窗口中點擊"名稱" 屬性並且把用戶控制項名改為menuControl
你可能注意到, menuControl的"屬性"窗口和標準的VB的form"屬性"窗口既類似又有不同。記住,現在我們設計的是ocx控制項,而不是VB中的form!
添加 Test 工程
由於 .ocx 工程不能獨立運行，所以我們將添加一個Test工程。在同一工程組中裝入設計工程(menus工程)和測試工程(Test工程)將十分有利於調試運行中的部件。
1.在"文件"菜單上單擊"添加工程"以打開"添加工程"對話框。
注意: 不要單擊"打開工程" 或"新建工程"，因為這樣會關閉控制項工程。
2.雙擊"Standard EXE"圖標以添加普通的 .exe 工程(即我們的Test工程)。
該新工程立即成為這個工程組的"啟動"工程。"工程資源管理器"窗口以黑體名字的顯示來標識"啟動"工程。
注意: ActiveX 控制項工程是不能作為啟動工程的。
3. 在"文件"菜單上單擊"保存工程組"用以保存測試工程和工程組。
& ocx代碼設計 &
1. 在menus工程的mole模塊中增加如下代碼:
Type menuRect '創建用戶自定義類型
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type
2. 在控制項設計窗口中加入一個picturebox控制項,取名為bmpmenu。
在bmpmenu中加入另一個picturebox控制項,取名為menuitem。
注意: menuitem是bmpmenu的子控制項。並且,這兩個picturebox的
AutoSize屬性皆設為True,BorderStyle屬性皆設為None。
3. 在控制項設計窗口中的General->Declarations中增加如下代碼:
Public g_selectedItem As String
Dim g_fileName As String '菜單文件名
Dim g_height As Integer 'ocx控制項的高度
Dim g_width As Integer 'ocx控制項的寬度
Dim bmpRects() As menuRect 'bmpRects()用來記錄所有菜單項的位置
Dim currentItemNumbers As Integer
Dim currentItemNumber As Integer
Public Event MENUITEMDOWN()
注意: MENUITEMDOWN是我們添加到控制項中的一個事件,它的詳細作用我們稍後會具體介紹。
4. 為我們的菜單控制項添加兩個屬性: childs 和 BmpName
childs屬性表示菜單控制項的菜單項數目, BmpName屬性表示菜單控制項的菜單文件名
首先,打開menuControl的代碼窗口。在"工具"菜單上點擊"添加過程"打開"添加過程"對話框。在"名稱"框輸入名字childs。單擊"屬性"和"公共的"後再單擊"確定"。
你將看到如下的代碼:
Public Property Get childs() As Variant
End Property
Public Property Let del1(ByVal vNewValue As Variant)
End Property
然後,在代碼窗口更改我們新創建的屬性過程(修改的部份以黑體表示):
Public Property Get childs() As Integer
childs = currentItemNumbers
End Property
Public Property Let childs(ByVal vNewValue As Integer)
currentItemNumbers = vNewValue
PropertyChanged "childs"
PopAndResize ' 這是一個子過程
End Property
當你對childs屬性賦新值時均執行 Property Let 過程, 而當你對childs屬性檢索該屬性值時均執行 Property Get 過程。
對BmpName屬性也同樣處理,它的代碼部份如下:
Public Property Get BmpName() As String
BmpName = g_fileName
End Property
Public Property Let BmpName(ByVal vNewValue As String)
g_fileName = vNewValue
PropertyChanged "BmpName"
PopAndResize
End Property
5. 為了初始化ocx控制項,在 UserControl_InitProperties 事件過程中
添加如下代碼：
Private Sub UserControl_InitProperties()
BmpName = ""
childs = 0
End Sub
在UserControl_Resize 事件過程中添加如下代碼：
Private Sub UserControl_Resize()
If g_height < 20 And g_width < 20 Then '決定設計狀態時的控制項大小
UserControl.Height = 300
UserControl.Width = 300
Else
UserControl.Height = g_height '決定運行狀態時的控制項大小
UserControl.Width = g_width
End If
End Sub
注意: ocx控制項設計涉及到許多重要概念,大家必須親自實踐才能真正融會貫通,
下面簡單地介紹一下ocx的事件過程設計。
與一般的可編程對象不同，ocx控制項同時具有設計時和運行時的兩種行為。 即開發者在設計時把一個控制項放入窗體時，控制項中的一些代碼將會執行。
例如，把我們設計的menu控制項放入test工程的窗體時, 放置在 UserControl_Resize 事件過程中的代碼將會執行;當test工程進入運行狀態時, UserControl_Resize事件過程中的代碼也會執行。所以,我在UserControl_Resize過程中使用If...Else語句來決定menu控制項分別在設計狀態和運行狀態時的尺寸大小。
6. 好了,我們的ocx控制項馬上就要完工了,再堅持一下!(ocx確實有點難度,不過它可是代表最新的技術設計概念哦!)
把下面的sub過程加入ocx設計器的代碼部分:
Sub popbmpMenu(xposition As Integer, yposition As Integer, itemNumbers As_ Integer, fileName As String)
ReDim bmpRects(itemNumbers)
bmpmenu.Visible = False
g_fileName = fileName
bmpmenu.Picture = LoadPicture(g_fileName + ".bmp")
menuitem.Visible = False
currentItemNumbers = itemNumbers
itemHeight = Int(bmpmenu.Height / itemNumbers)
For i = 0 To itemNumbers - 1
bmpRects(i).left = xposition
bmpRects(i).right = bmpmenu.Width
If i = 0 Then
bmpRects(i).top = yposition
Else
bmpRects(i).top = bmpRects(i - 1).bottom
End If
bmpRects(i).bottom = itemHeight * (i + 1)
Next i
bmpmenu.ZOrder 0
bmpmenu.left = 0
bmpmenu.top = 0
bmpmenu.Visible = True
g_height = bmpmenu.Height ' 菜單點陣圖文件決定了ocx控制項的大小
g_width = bmpmenu.Width
End Sub
Sub PopAndResize()
menuitem.Visible = False
If childs > 0 And BmpName <> "" Then
Call popbmpMenu(0, 0, childs, BmpName)
End If
UserControl.Height = g_height ' 調整ocx控制項的大小
UserControl.Width = g_width
End Sub
Private Sub GetSelectedItem() '判斷哪個菜單項被選中
g_selectedItem = right(g_fileName, 2) + "-" + LTrim(Str(currentItemNumber))
End Sub
最後是兩個picturebox上的一些代碼:
Private Sub bmpmenu_MouseMove(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
menuitem.Visible = False
For i = 0 To currentItemNumbers - 1
If X > bmpRects(i).left And Y > bmpRects(i).top And X < bmpRects(i).right _
And Y < bmpRects(i).bottom Then
currentItemNumber = 0
menuitem.Picture = LoadPicture(g_fileName + "-" + LTrim(Str(i + 1)) + ".bmp")
currentItemNumber = i + 1
menuitem.Move bmpRects(i).left , bmpRects(i).top
menuitem.Visible = True
Exit Sub
End If
Next i
End Sub
Private Sub menuitem_MouseDown(Button As Integer, Shift As Integer, X As Single, _
Y As Single)
GetSelectedItem
menuitem.Visible = False
'啟動MENUITEMDOWN事件,此事件的執行代碼不寫在ocx
'中,而是寫在調用此ocx的應用中。
RaiseEvent MENUITEMDOWN
End Sub
& 測試ocx控制項 &
OK, 我們的ocx終於完成了!下面我們可以來測試一下了!
製作一張菜單bmp文件,它的名字為c2.bmp,共有5個菜單項。
製作5個菜單項的激活狀態點陣圖,取名為c2-1.bmp,c2-2.bmp,c2-3.bmp,c2-4.bmp,c2-5.bmp
將這些點陣圖文件存放在和工程組同層的文件夾中。
關閉ocx設計器窗口,打開ocxTest窗口,我們發現在ToolBox工具欄中多了一個新的控制項,這就是我們所設計的menuControl。在ocxTest窗口上放置一個menuControl控制項,然後在代碼窗口中填入以下程序:
Private Sub Form_Click()
menuControl1.BmpName = App.Path + "\c2"
menuControl1.childs = 5
menuControl1.Visible = True
End Sub
Private Sub Form_Load()
menuControl1.Visible = False
End Sub
Private Sub menuControl1_MENUITEMDOWN()
menuControl1.Visible = False
Dim selectMenu As Integer
selectMenu = Val(Trim(Mid(menuControl1.g_selectedItem, 4, 2)))
Select Case selectMenu
Case 1
'第一個菜單項被選中
Case 2
'第二個菜單項被選中
Case 3
'第三個菜單項被選中
Case 4
'第四個菜單項被選中
Case 5
'第五個菜單項被選中
End Select
End Sub
怎麼樣?調用夠簡單的吧!這正是微軟提出的組件設計的優勢。不錯,ocx設計的確有些難度,然而一旦設計好,它的調用是十分方便的。ocx的可重用率和易維護性是值得我們在設計時多花些時間的,更重要的是,在軟體設計越來越復雜的今天,採用正確的組件設計思想是尤為關鍵的!
& 編譯ocx &
如果一切順利的話,我們就可以編譯ocx了。
1. 在"工程資源管理器"窗口單擊"menus"以選擇該工程。
2. 在"文件"菜單上單擊"生成 menuControl.ocx" 。
注意: 如果你需要你的ocx控制項具有許可證,可按如下操作
在"工程"菜單上，點擊"menus 屬性"打開"工程屬性"對話框。選擇"通用"選卡，選定"要求許可證關鍵字"，然後單擊"確定"。
這樣,即使有人將你的ocx拷貝了去,他也無法使用!你就不必擔心你的心血被人侵犯嘍!
& 使用ocx控制項 &
由於我們的ocx已經編譯成功,所以現在就可以像使用系統中的標准控制項一樣來調用我們的menuControl.ocx了。
退出設計時的工程組,新建一個VB的標准工程,在"工程"菜單上單擊"部件",在 Controls 的選項卡上，復選"menus"後再單擊"確定"。現在menuControl控制項和Label,TextBox等控制項就一樣被對待處理了,只不過menuControl是我們自己設計的!
菜單的圖形文件起名有一定規則,大家只要看一下程序就明白了。當然,讀者朋友們也可以按自己喜歡的方式來處理文件名。
& 後記 &
ocx控制項設計還涉及到許多方方面面,由於篇幅有限,這里就不詳述了(其實,大家能堅持到這里就夠有耐心了! (-_-) )。menuControl還有不少地方需要改進,這就待以後再慢慢完善了。
㈨ 怎麼用vb6.0編ActiveX控制項
都四級了。還0分懸賞~小氣了點吧。
創建一個ActiveX控制項工程 在「文件」選單中選擇「新建工程」，然後雙擊「ActiveX控制項」圖標，生成一個控制項工程項目（預設名UserControl1）。此時設計窗口顯示一個類似於窗體的界面（無邊框），其屬性窗口也類似於窗體的屬性窗口，只是有很多熟悉的屬性沒有了，且還有一些一般窗體不具有的屬性。選取「工程選單」最下面的「UserControl1屬性」項，在出現的對話框中改工程名稱為「MyControl」。在屬性窗口中改控制項名稱為「MyTime」。 到這里，就初步建立好了一個active控制項工程。然後，我們來設計界面，我們加入一個timer(timer1)控制項和一個label 控制項，將timer1的「Interval」屬性為1000，然後在Timer1_Timer()過程中加入如下代碼： lblTime.Caption = Time 'Time 返回系統當前時間 現在將工程保存一下。由於控制項工程不能獨立運行，我們創建一個新的工程來測試一下設計的新控制項。 選取「文件」選單上的「添加工程」，注意不要用「打開工程」或「新建工程」，那樣會關閉控制項工程。創建一個「Standard exe」工程，並將控制項工程的設計窗口關閉，這時會發現在控制項工具欄的最下邊出現了一個名為「MyTime」的新控制項。將其放至Form1窗體內，窗體上會出現一行文字，顯示的正是當前時間，這就是新創建的MyTime的實例「MyTime1」。然後把我們後來加的那個工程設置為啟動工程，這樣，按F5運行看看效果吧。到這里，我們就初步實現了一個最基鏡腶xtive控制項。下面我們介紹一些高級的東西。 2、添加屬性 為我們的控制項添加Interval屬性，使的我們可以設置timer的間隔。步驟如下： 選擇菜單「工程」》添加用戶控制項》vb Axtivex控制項界面向導，然後點擊打開按鈕，在出現的界面中單擊下一步，出現如下界面： 這里左邊顯示的是可用的屬性，右邊顯示的是所有已經選擇的屬性。我們先把右邊的全部刪除，然後在左邊找的「Interval」，雙擊添加道右邊，單擊下一步。出現如下的界面： 上一個界面顯示的是在你的自定義控制項中那寫控制項已經有的屬性，例如interval是timer控制項有的。而這里可以加那些控制項沒有的，我么這里加一個TimeFormat屬性，用來控制日期的顯示格式。單擊增加，在名稱中輸入TimeFormat，在類型中選擇屬性。單擊確定。 然後用同樣的方法新建一個GetTime方法和一個click事件，之後圖如下： 之後單擊下一步，出現如下界面： 這里，左邊是我們建立的一些元素，右邊是映射到的控制項和成員，我們這里對應關系如下： 設置好了之後，單擊下一步，就出現如下界面： 這里列出了我們自定義的屬性和方法，那些系統的屬性和我們自定義的事件不在這里顯示。在上面的界面中，我們可以對我們剛才定義的屬性：TimeFormat屬性設置類型，默認值和運行時或則是設計時可改變與否，相信大家都看得懂。我們這里把類型設置為String，默認值為「hh-mm-ss",運行時為Read/Write,設計時為Read/Write。設置好了之後單擊完成。然後可以在MyTime的代碼窗口中看到程序為我們增加了一些代碼。 這時，屬性interval可以使用，但是，我們自己定義的屬性TimeFormat並未生效，我們把Timer1_Timer過程改成如下： If Me.TimeFormat <> "" Then Label1.Caption = Format(Time, Me.TimeFormat) Else Label1.Caption = Time End If 改好之後，你在form1中把MyTime1的TimeFormat屬性設置為：hh時mm分ss,在看看時間的顯示吧。 也可以改變inteval屬性來改變時間改變的間隔 如果我們雙擊Mytime1空間，可以看到，他有click事件。 Private Sub MyTime1_Click() End Sub 下面我們來分析以下click的原理： 我們會發現代碼窗口中「通用」項下出現如下代碼： Option Explicit Public Event Click() 大家也許能夠看得出來，在這里只是定義了兩個名稱，它們和滑鼠的Click毫無關系，下面的代碼就把它們聯系起來。 Private Sub UserControl_Click() RaiseEvent Click End Sub Private Sub Label1_Click() RaiseEvent Click End Sub RaiseEvent的功能是把控制項或其上的子控制項的事件進行轉發，因為控制項總是由其它的子控制項組成，上面的代碼的意思是：當你單擊用戶控制項時，就出發控制項的click事件，當label單擊時，也出發。 現在關閉控制項設計窗口，打開測試工程，在MyTime1的過程列表中，發現多了事件Click，點擊Click，添加代碼如下： Private Sub MyTime1_Click() MyTime1.Interval = 3000 Debug.Print "Interval的值為:" & MyTime1.Interval End Sub 運行測試工程，點擊窗口中顯示的時間，會在立即窗口中輸出剛設定的Interval屬性值是3000。 最後，我們剛才建立的方法還不能使用，我們現在來實現。可以看到，我們剛才的步驟完成好後，控制項的代碼窗口中自動加了如下代碼： Public Function GetTime() As String End Function 我們改成如下： Public Function GetTime() As String GetTime = Time '返回當前時間，這里只是舉例,大家可以加入其他的復雜代碼 End Function 然後我們在測試工程中加入一個按鈕（command1)在他的click事件中加入下面代碼： Private Sub Command1_Click() MsgBox MyTime1.GetTime End Sub 然後運行，單擊按鈕看看效果。 到這里，我們把active的基本功能都實現了，大家如果看懂了，自然就知道做復雜控制項了。
㈩ VB裡面怎麼添加ActiveX控制項
在動行里輸入：regsvr32 ocx的絕對路徑
這樣就好了！