 Онлайн учебник по дизайну
Руководство по раскрутке сайтов
Шаблоны Программирование на VB Главная |
Статьи | Элементы управления - Прокручиваемая картинка, создание счётчикa времени, работа с эл. управления CommonDialog - окно диалога 'Open', работа с эл. управления CommonDialog - окно диалога 'Save As', работа с эл. управления CommonDialog - окно диалога 'Color', работа с эл. управления CommonDialog - окно диалога 'Font', работа с эл. управления CommonDialog - окно диалога 'Print', работа с эл. управления CommonDialog - запуск WinHelp32.exe, интересные свойства TextBox, массивы элементов управления, диалоговые панели Microsoft Common Dialog Control, взаимодействия простейших элементов управления, набор основных свойств объекта ListBox, автопоиск в ComboBox, события объектов встроенных по умолчанию в VB, события и свойства эл. управления Label, методы объектов встроенных по умолчанию в VB, статья-листинг - Элемент управления ListView (часть 1,2,3,4), элемент управления Microsoft Comm Control 6.0, элемент управления Microsoft Hierarchical FlexGrid (часть#1,2), пример работы с Tree, стандартная панель инструментов Visual Basic (ToolBar), усовершенствованная панель Coolbar, элемент управления Microsoft FlexGrid ...
.Работа с параллельным портом LPT - В статье будут рассмотрены примеры чтения и записи данных в LPT порт, а также работа с некоторыми управляющими сигналами. Если Вы хотите что-либо считывать с порта, то Вам необходимо переключить режим работы порта компьютера в режим EPP (Enhanced Parallel Port – режим двунаправленной передачи данных). Это делается в BIOS. Во время загрузки компьютера когда появится надпись Press DEL to enter setup, нажмите DEL, чтобы попасть в меню BIOS. Затем выберите раздел INTEGRATED PERIPHERALS и там выберите строку PARALLEL PORT MODE: измените режим работы Вашего порта на EPP или SPP/EPP. Сохраните сделанные изменения. Если же на Вашем компьютере нет режима EPP, то Вы сможете только передавать данные ....
1.Создайте стандартный проект.
2.На форме создайте PictureBox, в котором будет бегать картинка. Так как мы не можем заставить гонять картинку по форме.
3.Теперь прямо в Picture1 создаём объект Image и назовём его просто img.
4.Справа от объекта Picture1 создаём вертикальную полосу прокрутки VScrollBar и назовём её v.
5.Внизу, под объектом Picture1, создаём горизонтальную полосу прокрутки HScrollBar и назовём её h.
Private Sub Form_Load()
'загружаем в img нужный рисунок, желательно очень большой
img.Picture = LoadPicture("Путь_к_вашему_файлу")
'выравниваем картинку по левому краю и вверх
img.Top = 0
img.Left = 0
'устанавливаем максималное расстояние прокрутки по _
вертикали: не всю высоту картинки, a
'разницу между высотой картинки и высотой полосы прокрутки
'чтобы картинка не уползала с окна
v.Max = img.Height - v.Height
'здесь устанвливаем скорость прокрутки в режиме "быстрый" - _
клик не по стрелке
v.LargeChange = 1000
'а здесь устанвливаем скорость прокрутки в режиме "медленный" - _
клик по стрелке
v.SmallChange = 500
'всё тоже самое, только для горизонтальной полосы прокрутки
h.Max = img.Width - h.Width
h.LargeChange = 1000
h.SmallChange = 500
End Sub
7.Теперь открываем снова окно с формой и дважды кликаем по вертикальной полосе прокрутки, тем самым открываем событие v_Change и вписываем:
Private Sub v_Change()
'value это положение бегунка на полосе прокрутки, т.е. _
если мы жмём вниз, то картинка бежит вверх и наоборот
img.Top = -v.Value
End Sub
8.Теперь открываем снова окно с формой и дважды кликаем по горизонтальной полосе прокрутки,
тем самым открываем событие h_Change и вписываем:
Private Sub h_Change()
'этим мы устанавливаем, что при нажатии вправо _
картинка бежит влево и наоборот
img.Left = -h.Value
End Sub
Металлугрия - конструкция и ремонт.
эукануба корм для щенков ягнёнок рис 3 кг.