На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google
Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> EditBox
Sys
Сообщ. #1 ,
    Unregistered
    Не подскажите как при нажатии на 1 на клаве в txt1.text появлялось 1...Что то я пробовал по всякому никак...=(((
    И как мне обозначить Backspace просто если я блокирую txt1.text от ввода букв то у меня не пашет Backspace =((((((((9
    Guru Jin X
    Сообщ. #2 ,

      Законченный оптимист
      *******
      Профиль · PM
      Поощрения: 23 Dgm
      Рейтинг (т): 117
      У формы есть событие KeyPress называется. Только сначала нужно сделать свойство KeyPreview = True !!!
      Private Sub Form_KeyPress(KeyAscii As Integer)
      Txt1 = Txt1 + Chr(KeyAscii)
      End Sub
      Private Sub Form_Load()
      KeyPreview = True
      End Sub
      Guru Jin X
      Сообщ. #3 ,

        Законченный оптимист
        *******
        Профиль · PM
        Поощрения: 23 Dgm
        Рейтинг (т): 117
        А лучше...
        Txt1 = Txt1 + Chr(KeyAscii)
        ...замени на...
        If KeyAscii = 8 Then
        If Txt1 <> "" Then Txt1 = Left(Txt1, Len(Txt1) - 1)
        ElseIf KeyAscii >= 32 Then
        Txt1 = Txt1 + Chr(KeyAscii)
        End If
        ...и Backspace работать будет
        Sys
        Сообщ. #4 ,
          Unregistered
          Санкс..............=))))))))))
          1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0177 ]   [ 15 queries used ]   [ Generated: 17.05.24, 11:27 GMT ]  
          Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.