Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Visual Basic

Ответ
 
Опции темы
Старый 25.05.2011, 23:58   #16
shyrikkk
Нуждающийся
 
Регистрация: 11.12.2009
Сообщений: 77
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )

Сообщение от SBJoker Посмотреть сообщение
на основе какой информации текст должен меняться? Просто по порядку?

Присвой в редакторе форм свойству 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 .
СПАСИБО ЧТО ОТКОЛИКНУЛИСЬ .
БУДУДАЛЬШЕ ПРОБОВАТЬ -если у кого идеи появяться подкиньте
(Offline)
 
Ответить с цитированием
Старый 25.05.2011, 23:59   #17
shyrikkk
Нуждающийся
 
Регистрация: 11.12.2009
Сообщений: 77
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )

Сообщение от Igor Посмотреть сообщение
Сделай в power point. Подходит?
Закрыть слайды от перематывания стрелками с клавы, освоить ссылки и сохранить в режиме презентации.
несовсем подходит - нужно в не трудном языке програмирования .
(Offline)
 
Ответить с цитированием
Старый 26.05.2011, 00:15   #18
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )

попробуй строчку
k = CInt(Command1.Tag) заменить на k = Command1.Tag
я уж не помню какой там тип.
__________________
(Offline)
 
Ответить с цитированием
Старый 26.05.2011, 00:41   #19
shyrikkk
Нуждающийся
 
Регистрация: 11.12.2009
Сообщений: 77
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )

Сообщение от SBJoker Посмотреть сообщение
попробуй строчку
k = CInt(Command1.Tag) заменить на k = Command1.Tag
я уж не помню какой там тип.
эх я много уже чего перепробовал и это способ но ничего .
(Offline)
 
Ответить с цитированием
Старый 26.05.2011, 01:04   #20
SBJoker
Злобный Админ
 
Аватар для SBJoker
 
Регистрация: 04.09.2005
Сообщений: 5,926
Написано 3,415 полезных сообщений
(для 9,330 пользователей)
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )

Специально неполенился и установил VB6. И убедился что мой код (первый вариант) работает отлично сразу после вставки.

Как я делал:
  1. создал новый проект, кинул на форму кнопку и надпись
  2. в свойствах кнопки у свойства tag установил значение 0
  3. скопировал код из своего поста
  4. дважды ткнул по кнопке, выделил текущий код кнопки и нажал вставить
  5. запустил программу - она работает надписи меняются по клику.
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
shyrikkk (26.05.2011)
Старый 26.05.2011, 10:12   #21
shyrikkk
Нуждающийся
 
Регистрация: 11.12.2009
Сообщений: 77
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: !!! Маленькие вопросы чайника !!! (помогите ) )

Сообщение от SBJoker Посмотреть сообщение
Специально неполенился и установил VB6. И убедился что мой код (первый вариант) работает отлично сразу после вставки.

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


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 17:58.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com