|
Платные хостинги
Раскрутка сайта
Книги по программированию
Появление и исчезание картинки
- Ну и пиши ,если правильный то загружаетя картинка ,а если нет ""
- Ни чо сложного в написание этой проги нетупочитай литературку об операторах, об условиях, ну и чуть чуть о самой среде визуал, в FAQе есть много ссылок которые будут тебе очень полезны и у тебя всё получиться, ну а чё не получится отпишеш на форум !
- Было время вот так получилосьКод Private Sub Text1_Change() If Text1.Text = 1 Then Picture1.Picture = LoadPicture("C:\pic1.gif") Else Picture1.Picture = LoadPicture(None) End IfEnd SubhighlightSyntax('vbhZGRiY','vb');
- Add-ins -> Add-In Manager -> VB 6 Resource Editor поставь две галочки Loaded/Unloaded и Loaded on Startup нажми Ok. Щелкни потом по появившейся зеленой пиктограмме и в ней щелкни по пиктограмме с картинкой Add Bitmap
- В моем примере просто через Picture.Box.
- Загрузи картинку, допустим в PictureBox.А условие сделай таким:Код Dim SummaPravOtvetov as integerDim PravOtvet as stringDim FullPicSize as integerPrivate Sub Form_Load()FullPicSize=Picture1.heightPicture1.height=0End SubPrivate 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)*SummaPravOtvetovEnd SubhighlightSyntax('vbBmYTAz','vb');
- Здорово,ая думала резать придеться
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
