Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Тупой вопрос... Добавлено: 11.03.09 08:08  

Автор вопроса:  Der programmierer | Web-сайт: shap-alim.narod2.ru/ | ICQ: Do not! 
Как сделать TextBox невидемым, а писать текст можно было???

Ответить

  Ответы Всего ответов: 17  

Номер ответа: 1
Автор ответа:
 Jaychibek



ICQ: презираю 

Вопросов: 10
Ответов: 20
  Профиль | | #1 Добавлено: 11.03.09 08:36
TextBox.Visible=false
а потом пиши. Правда ты ее не увидишь :)
Лучше поковыряй свойства и события. Обязательно найдешь

Ответить

Номер ответа: 2
Автор ответа:
 Kardinal



ICQ: 360041513 

Вопросов: 1
Ответов: 164
  Web-сайт: kg7.ru
 Профиль | | #2 		Добавлено: 11.03.09 08:46
Ловить нажатия клавишь на форме и "писать" в нем, можно накрыть чем-то сверху-фокус останеться... Все зависит от целей;-)

Ответить

Номер ответа: 3
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #3 		Добавлено: 11.03.09 09:03
Ну мне надо так сам TextBox невидишь, а текст видишь!

Ответить

Номер ответа: 4
Автор ответа:
 Jaychibek



ICQ: презираю 

Вопросов: 10
Ответов: 20
  Профиль | | #4 Добавлено: 11.03.09 11:06
Kardinal правду говорит.
Ты поставь Label и в форме обработай чтоб при каждой нажатой клавише его код прописывался в тексте Label
Н:Label1.Text=Label1.Text & chr(ascii)

Ответить

Номер ответа: 5
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #5 Добавлено: 11.03.09 11:18
Тупой вопрос...Тупой ответ...
  1. Private Sub UserForm_Initialize()
  2. TextBox1.SpecialEffect = 0
  3. TextBox1.BackColor = Me.BackColor
  4. End Sub

Главное - попасть в TextBox1 фокусом (с помощью Tab или TextBox1.TabIndex или еще чего-нибудь...)

Ответить

Номер ответа: 6
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #6 		Добавлено: 11.03.09 14:45
Люди а что делать если у тебя TextBox стоит над рисунком в клеточку точнее я хочу сделать так:
Запускаешь прогу, начинаешь писать, а текст типа пишется на клеточках!

Ответить

Номер ответа: 7
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #7 		Добавлено: 11.03.09 15:06
Кстати вопрос не очень-то тупой!

Ответить

Номер ответа: 8
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #8 Добавлено: 11.03.09 19:21
Тупой вопрос...
- это цитата.
Тупой ответ... - мнение автора ответа на свой пост.
А вот рисунок в клеточку - это может быть как-то так?
  1. Option Explicit
  2. Dim a_Label() As MSForms.Label
  3.  
  4. Private Sub TextBox1_Change()
  5. Dim I As Integer
  6. For I = 1 To UBound(a_Label)
  7.   If I <= Len(TextBox1.Text) Then a_Label(I).Caption = Mid(TextBox1.Text, I, 1) Else a_Label(I).Caption = ""
  8. Next I
  9. End Sub
  10.  
  11. Private Sub UserForm_Initialize()
  12.   Dim R As Integer, C As Integer, N As Integer, W As Integer, H As Integer, V
  13.   W = 10
  14.   'V = InputBox("Укажи ширину рисунка ""в клеточку""", "Не тупой вопрос!!!"): If IsNumeric(V) Then W = V Else Exit Sub
  15.   H = 10
  16.   'V = InputBox("Укажи высоту рисунка ""в клеточку""", "Не тупой вопрос!!!"): If IsNumeric(V) Then H = V Else Exit Sub
  17.   TextBox1.Top = -50
  18.   ReDim a_Label(W * H)
  19.   For R = 1 To H
  20.     For C = 1 To W
  21.       N = N + 1
  22.       Set a_Label(N) = Me.Controls.Add("Forms.Label.1")
  23.       'a_Label(N).BorderStyle = fmBorderStyleSingle'(нужны клеточки?)
  24.       a_Label(N).Width = 10: a_Label(N).Height = 10: a_Label(N).Top = R * 10: a_Label(N).Left = C * 10
  25.     Next C
  26.   Next R
  27. End Sub

Ответить

Номер ответа: 9
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #9 		Добавлено: 12.03.09 13:17
Он мне при запуске выдает ошибку и указывает на: a_Label() As MSForms.Label

Ответить

Номер ответа: 10
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #10 Добавлено: 12.03.09 14:46
Вариант под VB6, предыдущий был под VBA
  1. Option Explicit
  2. Dim a_Label() As VB.Label
  3.  
  4. Private Sub Text1_Change()
  5. Dim I As Integer
  6. Debug.Print Text1.Text
  7. For I = 1 To UBound(a_Label)
  8.   If I <= Len(Text1.Text) Then a_Label(I).Caption = Mid(Text1.Text, I, 1) Else a_Label(I).Caption = ""
  9. Next I
  10. End Sub
  11.  
  12. Private Sub Form_Load()
  13.   Dim R As Integer, C As Integer, N As Integer, W As Integer, H As Integer, V
  14.   W = 10
  15.   'V = InputBox("Укажи ширину рисунка ""в клеточку""", "Не тупой вопрос!!!"): If IsNumeric(V) Then W = V Else Exit Sub
  16.   H = 10
  17.   'V = InputBox("Укажи высоту рисунка ""в клеточку""", "Не тупой вопрос!!!"): If IsNumeric(V) Then H = V Else Exit Sub
  18.   Text1.Top = -500
  19.   ReDim a_Label(W * H)
  20.   For R = 1 To H
  21.     For C = 1 To W
  22.       N = N + 1
  23.       Set a_Label(N) = Me.Controls.Add("vb.Label", "Label_" & N)
  24.       a_Label(N).Visible = True: a_Label(N).BackStyle = 0: a_Label(N).BorderStyle = 1
  25.       a_Label(N).Width = Me.Width / 12: a_Label(N).Height = Me.Height / 12: a_Label(N).Top = R * Me.Height / 12: a_Label(N).Left = C * Me.Width / 12
  26.     Next C
  27.   Next R
  28.   Me.Refresh
  29. End Sub

Ответить

Номер ответа: 11
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #11 		Добавлено: 13.03.09 09:02
Спасибо, а как сделать чтобы при нажатии на enter он сохранил на рабочем столе txt файл с напечатаным текстом и закрылся???

Ответить

Номер ответа: 12
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #12 Добавлено: 13.03.09 09:55
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. If KeyAscii = 13 Then
  3.   Open Environ$("USERPROFILE") + "\Рабочий стол\Вопрос.txt" For Output As #1
  4.     Print #1, Text1.Text
  5.   Close 1
  6.   Unload Me
  7. End If
  8. End Sub

Ответить

Номер ответа: 13
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #13 		Добавлено: 13.03.09 13:35
Ещё раз спасибо, а можно чтобы если файл уже существует то он выводил подтверждение на перезапись, а ещё клетки цветными сделать?

Заранее спасибо!

Ответить

Номер ответа: 14
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #14 Добавлено: 13.03.09 18:28
А если чуть-чуть самому подумать?
"если файл уже существует"? - GetAttr()
"подтверждение на перезапись" - MsgBox()
"клетки цветными сделать" - a_Label(N).BackColor

Ответить

Номер ответа: 15
Автор ответа:
 Der programmierer



ICQ: Do not! 

Вопросов: 14
Ответов: 99
  Web-сайт: shap-alim.narod2.ru/
 Профиль | | #15 		Добавлено: 16.03.09 14:06
Спасибо, а эту тему я считаю закрытой!

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам