forum.boolean.name
Страница 2 из 2 < 1 2
Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)
-   Visual Basic (http://forum.boolean.name/forumdisplay.php?f=62)
-   -   !!! Маленькие вопросы чайника !!! (помогите ) ) (http://forum.boolean.name/showthread.php?t=14782)

shyrikkk 25.05.2011 23:58
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )
 
Цитата:
Сообщение от SBJoker (Сообщение 189469)
на основе какой информации текст должен меняться? Просто по порядку?

Присвой в редакторе форм свойству Tag кнопки значение 0 (ноль).
Код:
Private Sub Command1_Click()
    dim k as integer
   
    k = CInt(Command1.Tag)
    k = k + 1
    Command1.Tag = k

    select case k
    case 1
        Label1.Caption = "First text"
    case 2
        Label1.Caption = "Second text"
    case else
        Label1.Caption = "Last text"
    end select
End Sub
k = CInt(Command1.Tag) - Ошибка Не совпадение типов
А если исключить эту строчку , то перещёлкивание не идёт а стоит на First text .
СПАСИБО ЧТО ОТКОЛИКНУЛИСЬ .
БУДУДАЛЬШЕ ПРОБОВАТЬ -если у кого идеи появяться подкиньте :)

shyrikkk 25.05.2011 23:59
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )
 
Цитата:
Сообщение от Igor (Сообщение 189473)
Сделай в power point. Подходит?
Закрыть слайды от перематывания стрелками с клавы, освоить ссылки и сохранить в режиме презентации.
несовсем подходит - нужно в не трудном языке програмирования .

SBJoker 26.05.2011 00:15
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )
 
попробуй строчку
k = CInt(Command1.Tag) заменить на k = Command1.Tag
я уж не помню какой там тип.

shyrikkk 26.05.2011 00:41
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )
 
Цитата:
Сообщение от SBJoker (Сообщение 189481)
попробуй строчку
k = CInt(Command1.Tag) заменить на k = Command1.Tag
я уж не помню какой там тип.
эх я много уже чего перепробовал и это способ но ничего .:mad:

SBJoker 26.05.2011 01:04
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )
 
Специально неполенился и установил VB6. И убедился что мой код (первый вариант) работает отлично сразу после вставки.

Как я делал:
  1. создал новый проект, кинул на форму кнопку и надпись
  2. в свойствах кнопки у свойства tag установил значение 0
  3. скопировал код из своего поста
  4. дважды ткнул по кнопке, выделил текущий код кнопки и нажал вставить
  5. запустил программу - она работает надписи меняются по клику.

shyrikkk 26.05.2011 10:12
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )
 
Цитата:
Сообщение от SBJoker (Сообщение 189489)
Специально неполенился и установил VB6. И убедился что мой код (первый вариант) работает отлично сразу после вставки.

Как я делал:
  1. создал новый проект, кинул на форму кнопку и надпись
  2. в свойствах кнопки у свойства tag установил значение 0
  3. скопировал код из своего поста
  4. дважды ткнул по кнопке, выделил текущий код кнопки и нажал вставить
  5. запустил программу - она работает надписи меняются по клику.
ОГРОМНОЕ СПАСИБО !!! - А вот про TAG -я походу забыл вообще , я забыл что отсчёта не пойдёт .
СПАСИБО ЕЩЁ РАЗ ВСЕМ !!!


Часовой пояс GMT +4, время: 20:17.
Страница 2 из 2 < 1 2
Показывать 64 сообщений этой темы на одной странице

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot