|
|
|
редактор кода
|
|||
|---|---|---|---|
|
#18+
задумка была сделать текст бокс у которого при вводе на месте каретки выподал список возможных вариантов вводимого слова, по типу редактора кода VB 6, точно так же не получилось, пришлось использовать для навигации по списку и выбору строки комбинации клавишь АЛЬТ+ (вниз, вверх, ентер), а хотелось бы все таки как в VB 6 (хотя такая фишка используется во многих других редакторах), может кто знает чего можно придумать на этот счет буду очень признателен если кого интересует реализация в моем исполнении, поделюсь без вопросов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2005, 16:52:18 |
|
||
|
редактор кода
|
|||
|---|---|---|---|
|
#18+
На форме: Tt - TextBox Lst - ListBox (Lst.Visible=False) При объявлении переменной (Dim a as ...) появляется список значений. Нажимаешь пробел, как в VB, и значение подставляется в строку. После этого список исчезает, фокус передается текстбоксу. Private Sub Form_Load() Lst.AddItem "String", Lst.ListCount Lst.AddItem "Long", Lst.ListCount Lst.AddItem "Integer", Lst.ListCount Lst.AddItem "Single", Lst.ListCount End Sub Private Sub Lst_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Tt.Text = Tt.Text & Lst.List(Lst.ListIndex) Lst.Visible = False Tt.SelStart = Len(Tt.Text) Tt.SetFocus End If End Sub Private Sub Tt_Change() If Len(Tt.Text) >= 3 Then If LCase(Right(Tt.Text, 3)) = "as " Then Lst.Visible = True Lst.ListIndex = 0 Lst.SetFocus End If End If End Sub Я правильно понял? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.11.2005, 11:23:34 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2166789]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
56ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
34ms |
get tp. blocked users: |
1ms |
| others: | 190ms |
| total: | 329ms |
| 0 / 0 |
