Create Textbox (Object) on runtime VB6

Question

2.33/5 (3 votes)

See more:

Hi,
Does anyone know how to create object (like textbox, command button, label, and so on) on runtime with VB6?
I means that when I clicked one button or do any action, then new textbox will appear.

In VB.Net look like this

VB

Dim txt as New Textbox

But in VB6 don't know what's "New"..

Many Thanks

update : I intended to create new object from scratch, so we won't use any object that had been create then. <<--- If U know what I means, it's Control Array!

Posted 25-Jun-12 15:07pm

satrio_budidharmawan

Updated 3-Mar-20 21:12pm

v3

Add a Solution

Comments

Sergey Alexandrovich Kryukov 25-Jun-12 21:11pm

Is there any single reason to deal with this garbage called "VB6" at all? And even ask questions about it?
--SA

Himachandra 29-Jun-12 3:43am

No sense at all.....
Y you are giving unreasonable suggestions....
If you know ans regarding ques...... then give it other wise
*******

Sergey Alexandrovich Kryukov 29-Jun-12 18:00pm

Well, this is you who think this suggestion is unreasonable (even though it was just a question, suggestive, perhaps). I'm sure VB6 makes no sense at all. Do you see any single reason to use it? :-)
--SA

satrio_budidharmawan 25-Jun-12 21:14pm

Yeah,
I don't know why, but there're many student still VB6-ing on their Final Project, that's too shame..

3 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

naiefm · Answer 1 · 2012-06-25T19:16:00

Create a Control dynamically at Run time. Without using a Control Array. That is the control is not present at Design time But will appear at Run Time.

VB

option Explicit
'
Dim withevents Cmd1 as CommandButton
'
private Sub Form_Load()
set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
Cmd1.Width = 2000
Cmd1.Top = me.Height / 2 - Cmd1.Height / 2 - 100
Cmd1.Left = me.Width / 2 - Cmd1.Width / 2 - 100
Cmd1.Caption = "Dynamic Button"
Cmd1.Visible = true
End Sub
'
private Sub Cmd1_click()
MsgBox "I have been Created Dynamically at Run-time", _
, "Dynamic Controls"
End Sub
'

frostcox · Answer 2 · 2012-06-30T12:23:00

Solution 2

Why don't you create the Textbox and set it wherever you want and set it's visibility property to false, then based on whatever you want say another button click that you set it to visible. Just a thought!!!!

Posted 30-Jun-12 12:23pm

frostcox

Comments

satrio_budidharmawan 2-Jul-12 21:16pm

Nope, you forget the terms "Dynamically"

Member 14762732 · Answer 3 · 2020-03-03T21:12:00

Solution 4

Dim intAdd As Integer
intAdd = InputBox("key in how many number of textboxes to be added")
For x = 1 To intAdd
Load txtAdd(x)
txtAdd(Index).Top = txtAdd(Index).Top + 600
txtAdd(x).Visible = True
Next

Posted 3-Mar-20 21:12pm

Member 14762732

Create Textbox (Object) on runtime VB6

3 solutions

Solution 1

Solution 2

Solution 4

Add your solution here

Preview 0

Create Textbox (Object) on runtime VB6

3 solutions

Solution 1

Solution 2

Solution 4

Add your solution here

Preview 0

Existing Members

...or Join us