Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
Однажды встанет Вам удачей!
Помощь проекту
Visual Basic
- Как в Visual Basic автоматически коррекировать регистр букв при вводе?
- Как в Visual Basic быстро найти строку в ComboBox?
- Как в Visual Basic быстро определить четность числа?
- Как в Visual Basic быстро проверить содержится ли одиночный символ в списке символов?
- Как в Visual Basic в MsgBox вывести текст в несколько строк?
- Как в Visual Basic воспроизвести WAV файл?
- Как в Visual Basic воспроизвести стандартный звук?
- Как в Visual Basic вставить разделитель в меню?
- Как в Visual Basic вывести свое PopupMenu на TextBox?
- Как в Visual Basic вывести текст в любом месте экрана?
Как в Visual Basic автоматически коррекировать регистр букв при вводе?
Private Sub Text1_Change()
Dim Pos as Integer
Pos = Text1.SelStart
Text1 = StrConv(Text1, vbProperCase)
Text1.SelStart = Pos
End Sub
Как в Visual Basic быстро найти строку в ComboBox?
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Private Sub CBFindString(ctlEdit As Control, sSearch As String)
Dim lPos As Long
Const CB_FINDSTRING = &H40C
lPos = SendMessage(ctlEdit.hWnd, CB_FINDSTRING, 0, ByVal sSearch)
If lPos >=0 Then ctlEdit.ListIndex = lPos
End Sub
Как в Visual Basic быстро определить четность числа?
Private Function IsOdd(ByVal Num as Long) As Boolean
IsOdd = Num And 1
End Function
Как в Visual Basic быстро проверить содержится ли одиночный символ в списке символов?
isVowel = InStr("aeiou", a$)
Как в Visual Basic в MsgBox вывести текст в несколько строк?
Если Вы хотите В MsgBox вывести текст в несколько строк, то в место разбиения нужно вставить константу vbCrLf:
MsgBox "Первая строка" & vbCrLf & "Вторая строка"
Как в Visual Basic воспроизвести WAV файл?
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_MEMORY = &H4
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Для воспроизведения звукового файла используйте следующий код
Result = sndPlaySound("c:\wav\demo.wav", SDN_ASYNC)
Как в Visual Basic воспроизвести стандартный звук?
Public Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As LongВоспроизводится звук в соответствии с флагом:
MB_ICONASTERISK = &H40 ' Звук Звездочка
MB_ICONEXCLAMATION = &H30 ' Звук Восклицание
MB_ICONHAND = &H10 ' Play the SystemHand sound
MB_ICONQUESTION = &H20 ' Звук Вопрос
MB_OK = &H0 ' Стандартный звукПоместите этот код в процедуру:
a = MessageBeep(MB_ICONQUESTION)
Как в Visual Basic вставить разделитель в меню?
В окне "Menu Editor" в поле "Caption" введите "-" (тире), а в поле "Name" любое имя.
Как в Visual Basic вывести свое PopupMenu на TextBox?
TextBox имеет контекстное меню, выползающее при клике правой кнопкой. Если вы хотите, чтобы появлялось ваше котекстное меню, необходимо отлавить событие Mouse_Down, код которого будет делать контрол недоступным. Затем вывести Ваше контекстное меню.
Private Sub PopContextMenu(Txt As Control, Men As Control)
Txt.Enabled = False
PopupMenu Men
Txt.Enabled = True
End Sub
Пример вызова в событии MouseDown для Text1
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopContextMenu Text1, MyMenu
End Sub
Как в Visual Basic вывести текст в любом месте экрана?
Public Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
