Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Открывание\закрывание CD rom`а
|
|
Здесь я привожу код с помощью которого можно открыть и закрыть CD rom.
вот код для модуля:
это для открывания:
mciSendString " Set cdaudio door open wait ", 0, 0, 0а это для закрывания:
mciSendString " Set cdaudio door closed wait ", 0, 0, 0
Двигаем компоненты с помощью клавиатуры.
Привет это снова я (Карим)
И так для начало немножко теории:
В форме есть много событии и одна из них это KeyDown. Происходит при нажатии клавиши.
В каждом объекте есть свойства Top и Left, Left - это расстояние от левой границы компанента до левой границы формы. Top - Это расстояние от верхной границы компонента до верхной границы формы.
Эти свойства есть у всех компонентов. Это значит что мы можем двигать всем компонентом, програмным путем
Для примера мы берем компонент Image, та же стандартная форма, откроем код, выберем форм1 и для формы событие KeyDown
если вы все сделали правильно в чем я не сомневаюсь добавим код:
If KeyCode = vbKeyUp Then Image1.Top = Image1.Top - 30 If KeyCode = vbKeyDown Then Image1.Top = Image1.Top + 30если не получилось в чем я тоже не сомневаюсь:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp Then Image1.Top = Image1.Top - 30 If KeyCode = vbKeyDown Then Image1.Top = Image1.Top + 30 End Subесли нажата кнопка стрелка вверх у свойства Тор компонента Image отнимать 30
если нажата клавиша стрелка вниз добавить 30 Вот и все.
Таймер на 20 минут
Dim cnt Private Sub Timer1_Timer()cnt = cnt + 1Text1 = cntTimer1.Enabled = False Timer2.Enabled = TrueEnd Sub Private SubTimer2_Timer()cnt = cnt + 1Text1 = cntTimer1.Enabled = True Timer2.Enabled = FalseEnd Sub Private Sub Timer3_Timer()d = Val(Text11) If d = 20 Then ' здесь 20 минут Text1 = " " cnt = 0 End IfEnd Sub
Скрываем курсор мыши
ВАРИАНТ №1
СОЗДАЙТЕ МОДУЛь.
Private Declare Function ShowCursor Lib " user32" _ (ByVal bShow As Long) As Long Const HIDE_CURSOR = (0) Const SHOW_CURSOR = (1) Public Function ShowCur() Call ShowCursor(SHOW_CURSOR) End Function Public Function HideCur() Call ShowCursor(HIDE_CURSOR) End Function2. СОЗДАЙТЕ ФОРМУ
Private Sub Command1_Click() ShowCur 'Показываем курсор End SubPrivate Sub Command2_Click() HideCur 'Скрываем курсор End SubВАРИАНТ №2
1. КОД ФОРМЫ
Private Declare Function ShowCursor Lib " user32" _ (ByVal bShow As Long) As LongPrivate Sub Command1_Click() Call ShowCursor(0) 'Скрываем курсорEnd SubPrivate Sub Command2_Click() Call ShowCursor(1) 'Показываем курсорEnd Sub
Показываем время и дату в реальном времени
Private Sub Form_Load() With Me. Caption = (" Время и дата").Timer1.Interval = (1).Label1.AutoSize = (True).Label1.BackStyle = (0).Label2.AutoSize = (True).Label2.BackStyle = (0) End WithEnd Sub Private Sub Timer1_Timer() Dim sTime As String, sData As String sTime = Time$ sData = Date$ Me. Label1.Caption = (sTime) Me. Label2.Caption = (sData) End Sub
Получение имени файла без расширения или только расширение
Код очень прост. Сам искал его в интернете, но ничего не нашел, кроме большого непонятного кода без объяснения и то для.NET. На сайте Microsoft тоже было, но с использованием Framework. Потом уже сам додумался.
Имя файла без расширения:
Private Sub Command1_Click()CommonDialog1.ShowOpen ' окно для получения файла s = CommonDialog1.FileTitle ' имя файла (даётся с расширением) Text1.Text = Replace(s, Right(s, 4), " ") ' получаем в Text1 только имя файла End SubТо есть в итоге получаем к примеру название file, а не file.exe
Только расширение:
Private Sub Command1_Click()CommonDialog1.ShowOpen ' окно для получения файла s = CommonDialog1.FileTitle ' имя файла (даётся с расширением) Text1.Text = Right(s, 3) ' получаем в Text1 только расширение End Sub
Меняем местами кнопки для мыши
Private Declare Function SwapMouseButton Lib " user32.dll" _ (ByVal bSwap As Long) As Long Private Sub Command1_Click()Dim lBm As Long ' возвращаемое значение lBm = SwapMouseButton(0) ' переключаем кнопки для правшиEnd Sub Private Sub Command2_Click()Dim lBm As Long ' возвращаемое значение lBm = SwapMouseButton(1) ' переключаем кнопки для левшиEnd SubВариант №2
Private Declare Function SwapMouseButton Lib " user32.dll" _ (ByVal bSwap As Long) As LongPrivate Sub Command1_Click() Call SwapMouseButton(0) ' переключаем кнопки для правшиEnd SubPrivate Sub Command2_Click() Call SwapMouseButton(1) ' переключаем кнопки для левшиEnd Sub
|
|