Bây giờ bạn kéo các Option button ra ngoài Frame, sau đó kéo thả vào lại trong Frame. Thêm nữa, kiểm tra lại thuộc tính Visible của chúng.
Thì ra là vậy!
[COLOR=#ff0000]Public WithEvents cboBox As MSForms.ComboBox
Public WithEvents lstBox As MSForms.ListBox
Public WithEvents cmdBtt As MSForms.CommandButton
Public WithEvents txtBox As MSForms.TextBox[/COLOR]
[COLOR=#0000cd]Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If TypeName(cboBox) = "Nothing" Then
Set cboBox = Sheet1.Frame1.Controls("ComboBox1")
cboBox.List() = Sheet1.Range("A1:A10").Value
End If
If TypeName(lstBox) = "Nothing" Then
Set lstBox = Sheet1.Frame1.Controls("ListBox1")
lstBox.List() = Sheet1.Range("A1:A10").Value
End If
If TypeName(cmdBtt) = "Nothing" Then
Set cmdBtt = Sheet1.Frame1.Controls("CommandButton1")
End If
End Sub[/COLOR]
Private Sub cboBox_Click()
Sheet1.Frame1.Controls("TextBox1").Text = cboBox.Text
End Sub
Private Sub lstBox_Click()
Sheet1.Frame1.Controls("TextBox1").Text = lstBox.Text
End Sub
Private Sub cmdBtt_Click()
MsgBox "Hello!"
End Sub
pen, Worksheet_Activate... để khởi tạo)
Cũng lại dùng Class thôi. Cách làm như sau:
Public WithEvents opt As MSForms.OptionButton
Private Sub opt_Click()
MsgBox opt.Name
End SubDim obj() As New Class1
Private Sub UserForm_Initialize()
Dim ctr As Control, n As Long
For Each ctr In Me.Frame1.Controls
ReDim Preserve obj(n)
Set obj(n).opt = ctr
n = n + 1
Next
End SubHổng có file lấy gì mà kiểm tra đây bạn?
dạ em copy nguyên trả lời của anh ở page1 ạ, giờ e muốn làm việc thêm với cái multipage mà chưa biết làm thế nào, google vẫn chưa ra ạ, mong anh giúp đỡ, thanksLàm cho bạn 1 Frame gồm có: 1 ComboBox, 1 ListBox, 1 TextBox và 1 CommandButton
Toàn bộ code:
4 dòng khai báo màu đỏ để khai báo các controls (bắt buộc phải có)Mã:[COLOR=#ff0000]Public WithEvents cboBox As MSForms.ComboBox Public WithEvents lstBox As MSForms.ListBox Public WithEvents cmdBtt As MSForms.CommandButton Public WithEvents txtBox As MSForms.TextBox[/COLOR] [COLOR=#0000cd]Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If TypeName(cboBox) = "Nothing" Then Set cboBox = Sheet1.Frame1.Controls("ComboBox1") cboBox.List() = Sheet1.Range("A1:A10").Value End If If TypeName(lstBox) = "Nothing" Then Set lstBox = Sheet1.Frame1.Controls("ListBox1") lstBox.List() = Sheet1.Range("A1:A10").Value End If If TypeName(cmdBtt) = "Nothing" Then Set cmdBtt = Sheet1.Frame1.Controls("CommandButton1") End If End Sub[/COLOR] Private Sub cboBox_Click() Sheet1.Frame1.Controls("TextBox1").Text = cboBox.Text End Sub Private Sub lstBox_Click() Sheet1.Frame1.Controls("TextBox1").Text = lstBox.Text End Sub Private Sub cmdBtt_Click() MsgBox "Hello!" End Sub
Các dòng code màu xanh dùng sự kiện MouseMove trên Frame để khởi tạo các controls (cũng bắt buộc phải có nhưng có thể dùng các sự kiện khác như Aut
Các dòng code dưới cùng: Điều khiển sự kiện các control (viết bình thường như trên form)
-------------------
Quy trinh là vậy, bạn có thể tùy biến thêm
Cụ thể bạn muốn làm điều gì trên cái multipage này?
Thì khai báo bình thường thôi. Chẳng hạn muốn khai báo TextBox2 nằm trên Page2 của MultiPage thì:
'...........................
Public WithEvents txtBox2 As MSForms.TextBox
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'..............................
If TypeName(txtBox2) = "Nothing" Then
Set txtBox2 = Sheet1.Frame1.Controls("MultiPage1").Pages(1).Controls("TextBox2")
End If
End SubPrivate Sub txtBox2_Change()
Sheet1.Frame1.Controls("MultiPage1").Pages(1).Controls("Label2").Caption = txtBox2.Text
End Sube đã làm được rồi, thanks anh,
Anh cho em hỏi sự khác nhau trong câu lệnh trên khi dùng "New" và không dùng "New".
Trước mình thử bỏ new, hình như ko chạy,
Theo kinh nghiệm thì tôi thấy rằng: Nếu có "New" thì khỏi phải có động tác "Set"
Sub Test1()
Dim x As New Application
MsgBox x.Sum(3, 2)
End SubSub Test2()
Dim x As Application
Set x = New Application
MsgBox x.Sum(3, 2)
End SubSub Test1()
Dim x As New Collection
x.Add 1, "1"
x.Add 2, "2"
x.Add 3, "3"
MsgBox x.Count
End SubSub Test2()
Dim x As Collection
Set x = New Collection
x.Add 1, "1"
x.Add 2, "2"
x.Add 3, "3"
MsgBox x.Count
End SubBình thường nó là một mảng ojbject ( class1)
Thấy cũng vậy thôi mà. Bạn có quyền Dim obj() as Class1 cũng đâu có vấn đề gì. Chỉ là sau đó bạn phải có động tác Set obj() = New Class1
Public WithEvents cmdBtt As MSForms.CommandButton
Private Sub cmdBtt_Click()
MsgBox "Xin chào! Tôi là '" & cmdBtt.Caption & "'"
End SubDim btt() As New clsEvent
Private Sub UserForm_Initialize()
Dim n As Long, ctr As Control
For Each ctr In Me.Frame1.Controls
n = n + 1
ReDim Preserve btt(1 To n)
Set btt(n).cmdBtt = ctr
Next
End SubDim btt() As clsEvent
Private Sub UserForm_Initialize()
Dim n As Long, ctr As Control
For Each ctr In Me.Frame1.Controls
n = n + 1
ReDim Preserve btt(1 To n)
Set btt(n) = New clsEvent
Set btt(n).cmdBtt = ctr
Next
End SubSub Test1()
Dim app As New Application
Set app = Nothing
MsgBox app Is Nothing
End Sub
Sub Test2()
Dim app As Application
Set app = New Application
Set app = Nothing
MsgBox app Is Nothing
End SubTôi cũng nghĩ vậy (mới nghĩ)... Trước giờ dùng nhưng không để ý, hôm nay bạn hỏi tự dưng thí nghiệm mới phát hiện vấn đề. Chắc phải thay đổi cách viết code từ đây
Chíng xác.
Dim obj As myClass ' Object
Set obj = New myClass
Set obj = Nothing
MsgBox obj Is NothingDim obj As New myClass
Set obj = Nothing
MsgBox obj Is NothingDim obj As New myClass
obj.HoTen = "Nguyen Van A" ' (A)
Set obj = Nothing ' (B)
MsgBox obj Is Nothing ' (C)Nó ngoan ngoãn về Nothing. Chỉ có điều sau khi Set ... = Nothing thì đừng truy cập tới nó nữa. Bởi nếu truy cập thì VBA lại tạo lại đối tượng, do đang là Nothing, để có thể thực hiện câu lệnh.
Sự khác nhau giữa (1) và (2) thì liên hệ như nào với khái niệm kiểu khai báo kết nối sớm (1') và kiểu khai báo kết nối trễ (2') hả anh?
Theo tôi thì thế này ... Theo tôi bởi tôi không dám cho là mình chắc chắn đúng.
Sub test1()
Dim dic As New Scripting.Dictionary
dic.Add "a", 1
MsgBox dic.Item("a")
Set dic = Nothing
MsgBox dic Is Nothing
End Sub
Sub test2()
Dim dic As Scripting.Dictionary
Set dic = CreateObject("Scripting.Dictionary") ' hoac New Scripting.Dictionary
dic.Add "a", 1
MsgBox dic.Item("a")
Set dic = Nothing
MsgBox dic Is Nothing
End SubDim dic As New Scripting.Dictionary
...
Dim dic As Scripting.DictionarySub test3()
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
dic.Add "Nguyen van A", 47
MsgBox dic.Item("Nguyen van A")
Set dic = Nothing
End SubSub test4()
Dim obj As Object
Set obj = CreateObject("Scripting.Dictionary")
obj.Add "Nguyen van A", 47
MsgBox obj.Item("Nguyen van A")
Set obj = Nothing
Set obj = CreateObject("Scripting.FileSystemObject")
MsgBox obj.FileExists("C:\test.txt")
Set obj = Nothing
End SubNếu bạn lấy ví dụ khác thì còn có lý, vì Show là hiển nhiên. Tại sao? Nếu UserForm1 đang chưa được Load mà không thể gọi Show để Load nó và Show nó thì bạn làm sao dùng được UserForm1? Bởi khi mở tập tin thì UserForm1 chưa được Load mà. Vậy bạn làm cách nào hiển thị UserForm1 để làm việc với nó? Thời điểm khi mở tập tin và thời điểm khi UserForm1 được hiển thị và sau đó Unload là hoàn toàn như nhau.
Tôi cũng không biết có cùng cơ chế hay không. Nếu bạn kiểm tra thấy đúng như thế thì bạn tự kết luận cho mình thôi.
Option Explicit
Private Sub UserForm_Initialize()
Debug.Print Me.Name & " initialize"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Debug.Print Me.Name & " will be closed with Cancel = " & Str$(Cancel) & " and CloseMode = " & Str$(CloseMode)
End Sub
Private Sub UserForm_Terminate()
Debug.Print Me.Name & " terminate"
End SubOption Explicit
Sub TestForm()
Debug.Print "UserForm1 at address: 0x" & Hex$(VarPtr(UserForm1))
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
UserForm1.Show
Debug.Print "UserForm1 at address: 0x" & Hex$(VarPtr(UserForm1))
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
Unload UserForm1
Set UserForm1 = Nothing
Debug.Print "UserForm1 at address: 0x" & Hex$(VarPtr(UserForm1))
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
End SubNói chính xác thì khi Show được gọi mà UserForm chưa được Load thì VB sẽ Load nó. Cũng hiển nhiên thôi. Vì nếu không UserForm.Show được khi UserForm chưa được Load thì làm sao dùng UserForm được.
Chắc chắn là giải phóng. Nhưng do sau đó lại truy cập tới UserForm1 nên VB lại tạo nó.
Sub Button1_Click()
UserForm1.Show
End SubPrivate Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Me.Hide
End Sub
Private Sub CommandButton3_Click()
Unload Me
UserForm1.Width = 500
End Sub
Private Sub UserForm_Initialize()
MsgBox "Initialize"
End Sub
Private Sub UserForm_Terminate()
MsgBox "Terminate"
End SubSub TestClass()
Dim UF As UserForm1
Set UF = UserForm1
Unload UserForm1
UserForm1.Caption = "Meo mun dang yeu"
MsgBox UF.Caption
End SubSub TestForm()
Dim k As UserForm1, a As UserForm1
Unload UserForm1
Set k = UserForm1
Debug.Print "Dia chi cua k la: " & Hex(ObjPtr(k))
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
Unload UserForm1
Set a = UserForm1
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
Unload UserForm1
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
Unload UserForm1
Debug.Print "UserForm1 pointer to address: 0x" & Hex$(ObjPtr(UserForm1))
End SubGiải phóng thì chắc chắn là đúng rồi anh. Chỉ là tại sao khi kiểm tra địa chỉ lại có lúc trùng, có lúc không trùng.
Không biết bạn kiểm tra gì, thế nào. Chỉ một câu mà không có code thì khó nói chuyện.
