1. Как сделать чтоб при нажатии на кнопку текст вставлялся в текстовое поле, в то место где курсор???
На форму кинь кнопку(Caption = "Вставить"), текстовое поле(MultiLine=True). Вот типо код:
Dim x As String
Private Sub Command1_Click()
Text1.SetFocus ' Ставим курсор в текстовое поле
x = Right(Text1.Text, Len(Text1.Text) - Text1.SelStart) ' Копируем в переменную X правую часть текста который в текстовом поле
Text1.Text = Left(Text1.Text, Text1.SelStart) 'Копируем в текстовое поле левую часть текста
Text1.Text = Text1.Text + Clipboard.GetText + x ' Вставляем в середину текст из буфера
Text1.SelStart = Len(Text1.Text) - Len(x) ' Ставим курсор после вставленного символа
End Sub
Исходник
2. Можно как - нить в сообщении MsgBox писать текст в столбик???
На форму кинь кнопку. Код:
Private Sub Command1_Click()
MsgBox "1ая строка" + Chr(13) + "2ая строка" + Chr(13) + "3ия строка" + Chr(13) + "4ая строка" + Chr(13) + "...", 48, "VBFAQ" ' Здесь с помощью функции Chr переводим ASCII код 13 в обычный, а обычный это Enter(ну ты меня понял)
End Sub

Исходник
3. Как узнать расширение выбранного(с помощью Common Dialog) файла. Только в расширении может быть 3 и 4 символа(например Htm ил Html)
На форму кинь кнопку, текстовое поле, и подключи компонент Microsoft Common Dialog 6.0. Код:
Dim x As String, y As Long
Private Sub Command1_Click()
Text1.Text = ""
CommonDialog1.ShowOpen ' Открываем ркно выбора файлов
For i = 1 To Len(CommonDialog1.FileName) ' Цикл будут повторятся столько сколько символов в пути и имени файла
DoEvents ' Это чтоб комп не завис
x = Mid(CommonDialog1.FileName, i) ' Вырезаем по одному символу из путя к файлу
y = Asc(x) ' Узнаем ASCII код символа
If y = Asc(".") Then ' Если вырезанный символ точка то:
Text1.Text = Text1.Text + x ' Вырезаем все символы которые идут после точки
End If
Next i
End Sub
Исходник
4. А как сделать чтоб при нажатии на кнопку двигался объект, а при отжатии останавливался???
На форму кинь 2 кнопки. Код:
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Если кнопка мыши наведенна на кнопку и нажата то включаем таймер
Timer1.Interval = 1
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)'Здесь тоже самое только на оборот
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Command2.Left = Command2.Left + 100 ' Двигаем кнопку в право
End Sub
Исходник
5. Как можно реализовать переход между TextBox на форме через клавишу ENTER вместо TAB
Private Sub Text1_KeyPress(KeyAscii As Integer) ' При нажатии клавиши(любой) в текст. поле:
If KeyAscii = vbKeyReturn Then ' Если нажата Enter(vbKeyReturn) то:
KeyAscii = 0 ' Убиваем сигнал от клавы
SendKeys "{TAB}" ' Посылаем сигнал TAB`a
End If
End Sub
И так для всех текстовых полей
6. Как открыть музыкальный/видео файл из Windows Media Player из VB программы?
На форму кинь кнопку, вот код:
Private Sub Command1_Click()
Shell "cmd /X /C start wmplayer C:\DDT_Veter.mp3", vbHide 'Вместо wmplayer можно указать путь к другой программе для проигрывания аудио и видео файлов, а вместо C:\DDT_Veter.mp3 нужно указать путь к аудио/видео файлу.
End Sub
Если есть вопросы, то мыль мне, и можть твой вопрос будет в этом ФАКЕ.
P.S. ФАК недоделан.
Место под Банеры
|
|
|
|