Вопросы

[Dread Icefist]

Я полный ламер, поэтому такие вопросы:

1. Как сделать, чтоб при нажатии на кнопку текст копировался в буфер обмена?
2. Как сделать несколько форм в одной программе и как сделать переход между ними путем нажатия кнопки?

Спасибо

[Lumen]

1)

Код: Выделить всё

Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub


2)Project->Add Form
В обработчике события нажатия на кнопку пишешь Form1.Show

[Viper]

0) За название темы незачот
1) Есть такой объект Clipboard, в нем есть метод SetText, юзай его
2) Сделать несколько форм элементарно при помощи их добавления и дизайна в дизайнере форм. Для перехода в другую форму пишешь в коде кнопки код типа

Код: Выделить всё

Sub Button1_CLick()
    Dim F As New Form2
    f.Show
End Sub

З.Ы. Уровень вопросов наводит на полное незнание языка. Советую почитать какую-нить енигу для начинающих. Это будет проще, чем дожидаться ответа на элементарные вопросы в форуме

[Хакер]

!Viper!, а зачем ему создавать новый инстанс формы2. Ему ведь просто переход надо?

[Viper]

ну если инстанс есть, то создавать понятно дело не надо... Но что у него есть мы не могем знать. Соответствено, если есть инстанс, то:

Код: Выделить всё

Sub ButtonShowForm_CLick()
    F2.Show
End Sub

Ежели нету инстанса, то:

Код: Выделить всё

Sub ButtonCreateAndShowForm_CLick()
    Dim F2 As Ne Form2
    F2.Show
End Sub

Бум надеяться, что афтор поймет что к чему и, главное, знает разницу между инстансом (экземпляром) и классом.

[Денис Победря]

В vb6 разницу заметить трудно

[Хакер]

Денис Победря, да ну. А что ж тут тоже никакой разницы

Код: Выделить всё


Private Sub Command1_Click
  Form2.Show
End Sub


Код: Выделить всё


Private Sub Command2_Click()
   Dim F as New Form2
   F.Show
End Sub


Ха?

[keks-n]

Никакой: умный VB для каждой формы создаёт одноимённую скрытую переменнуй, которой при первом обращении будет присвоен свежесозданный инстанс...

[Хакер]

Да ну, если 5 раз щёлкнуть по Command1 - сколько мы увидем форм - одну.

А 5 раз по Command2 - целых 5.

И что 5 = 1 ?

[keks-n]

Дык то при многократном использовании.

А теперь внимание:

Код: Выделить всё

Private Sub Command2_Click()
   Dim F As New Form2
   Set F = Nothing
   F.Show
End Sub

Работает точно также как и

Private Sub Command2_Click()
Dim F as New Form2
F.Show
End Sub

[Хакер]

Треть я строчка, т.е. F.Show вызывает конструктор класса и форма опять создаётся, а поскольку предварительно она была создана как New т.е. клон и одна форма уже есть, то умный VB создаёт новую форму. Вот так

[keks-n]

Ага, а код
Private Sub Command2_Click()
Dim F as Form2
Set F=New Form2
Set F = Nothing
F.Show
End Sub
Вызовет ошибку