Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Появление и исчезание картинки

Автор: Guest 17.4.2005, 06:41

как сделать такую програмку
компьютер задумывает число
игрок пытается угадать число
если ответ правильный открывается часть большой картинки (1/10), если не правильный часть открытой картинки закрывается опять.

Автор: Staruha 17.4.2005, 09:06

Ну и пиши ,если правильный то загружаетя картинка ,а если нет ""

Автор: Вадян! 17.4.2005, 10:15

Цитата

игрок пытается угадать число
если ответ правильный открывается часть большой картинки (1/10), если не правильный часть открытой картинки закрывается опять

Ни чо сложного в написание этой проги нету
почитай литературку об операторах, об условиях, ну и чуть чуть о самой среде визуал, в FAQе есть много ссылок которые будут тебе очень полезны и у тебя всё получиться, ну а чё не получится отпишеш на форум !
smile

Автор: Staruha 17.4.2005, 11:53

Было время вот так получилось

Код


Private Sub Text1_Change()
  If Text1.Text = 1 Then
         Picture1.Picture = LoadPicture("C:\pic1.gif")
  Else
         Picture1.Picture = LoadPicture(None)
 End If
End Sub

Автор: Guest 17.4.2005, 17:09

а как вшить картинку в программу

Автор: Voldemar2004 17.4.2005, 17:37

Add-ins -> Add-In Manager -> VB 6 Resource Editor поставь две галочки Loaded/Unloaded и
Loaded on Startup нажми Ok. Щелкни потом по появившейся зеленой пиктограмме и в ней щелкни по пиктограмме с картинкой Add Bitmap smile

Автор: Staruha 17.4.2005, 23:37

В моем примере просто через Picture.Box.

Автор: Anhost 20.4.2005, 13:58

Цитата

открывается часть большой картинки (1/10), если не правильный часть открытой картинки закрывается опять.

Загрузи картинку, допустим в PictureBox.
А условие сделай таким:

Код


Dim SummaPravOtvetov as integer
Dim PravOtvet as string
Dim FullPicSize as integer

Private Sub Form_Load()
FullPicSize=Picture1.height
Picture1.height=0
End Sub


Private Sub Command1_Click()
  If Text1.Text = PravOtvet Then
         SummaPravOtvetov=SummaPravOtvetov+1
  Else
         SummaPravOtvetov=SummaPravOtvetov-1
 End If
  if SummaPravOtvetov<0 then SummaPravOtvetov=0
  if SummaPravOtvetov>10 then SummaPravOtvetov=10
  
 'Отображение картинки...
  Picture1.height=int(FullPicSize/10)*SummaPravOtvetov
End Sub

Автор: Staruha 20.4.2005, 19:28

Здорово,ая думала резать придеться