AccessTr.neT

Tam Versiyon: Kontrol Eklemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
ActiveSheet.OLEObjects.Add ClassType:="Forms.Textbox.1", Left:=72, Top:=72, Height:=20, Width:=100
OLEObjectCollection.Add(ClassType, FileName, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Left, Top, Width, Height)
The only other parameters that are relevant to adding ActiveX controls (this method is used for other types of OLE objects as well) are the Left, Top, Width, and Height parameters, which specify in points the location (with respect to the upper-left corner of cell A1) and size of the control. All other parameters should be omitted. (This is a good place for named arguments
!
ActiveX denetimleri eklemeyle ilgili diğer parametreler (bu yöntem diğer OLE nesnesi türleri için de kullanılır) konumu, noktayı (üste göre) belirten Sol, Üst, Genişlik ve Yükseklik parametreleridir. A1 hücresinin sol köşesi) ve kontrolün boyutu. Diğer tüm parametreler atlanmalıdır. (Bu, adlandırılmış argümanlar için iyi bir yerdir!
Set Control = object.Add( ProgID [, Name [, Visible]])
CheckBox
Forms.CheckBox.1
ComboBox
Forms.ComboBox.1
CommandButton
Forms.CommandButton.1
Frame
Forms.Frame.1
Image
Forms.Image.1
Label
Forms.Label.1
ListBox
Forms.ListBox.1
MultiPage
Forms.MultiPage.1
OptionButton
Forms.OptionButton.1
ScrollBar
Forms.ScrollBar.1
SpinButton
Forms.SpinButton.1
TabStrip
Forms.TabStrip.1
TextBox
Forms.TextBox.1
ToggleButton
Forms.ToggleButton.1
Private Sub CommandButton1_Click()

 Me.Controls.Add _
        "Forms.CommandButton.1", "CopyOf"
End Sub
Sayfalar: 1 2 3