Кнопка стиля graphical, картинка и Caption

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4158
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Кнопка стиля graphical, картинка и Caption

Сообщение Mikle » 20.11.2009 (Пт) 18:06

Возможно туплю... никогда раньше graphical кнопками не пользовался.
Сделал graphical кнопку с пустым Caption, наложил картинку, потом присвоил Caption непустое значение - картинка перемещается...
Попробуйте например так:
Код: Выделить всё
Option Explicit

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Dim n As Long
    For n = 0 To 31
      pic.Line (Rnd * 2000 - 500, Rnd * 2000 - 500)-(Rnd * 2000 - 500, Rnd * 2000 - 500), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Next n
    Set pic.Picture = pic.Image
    Set cmd.Picture = pic.Image
  Else
    cmd.Caption = "X"
  End If
End Sub

Покликайте сначала левойкнопкой, потом правой.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 19

    TopList