Visual Basic 6.0 - InputBox+PasswordChar

Доброго времени суток !
Sun, 25 Apr 2004 06:17:02 +0000 (UTC) Вы писали to Amil Sharafutdinov














Я вереулся ;)
Добавился курсор и Бэк...

Dim pswd As String, pos As Integer

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then pos = pos - 1
If KeyCode = 39 Then if pos+1<= len(pswd) Then pos = pos + 1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


pswd = Left(pswd, pos) + Chr(KeyAscii) + Right(pswd, Len(pswd) - pos)
Else
pswd = Left(pswd, pos) + Chr(KeyAscii)
End If

KeyAscii = Asc("*")
pos = pos + 1
Else



pswd = Left(pswd, pos - 1) + Right(pswd, Len(pswd) - pos)
Else
pswd = Left(pswd, pos - 1)
End If
End If
End If
End Sub

Sorry за долгое молчание, пишу курсовую - WWW сервер

_____________________________________________________
Истина где-то рядом... Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)




Доброго времени суток !
Sun, 25 Apr 2004 06:17:02 +0000 (UTC) Вы писали to Amil Sharafutdinov














Я вереулся ;)
Добавился курсор и Бэк...

Dim pswd As String, pos As Integer

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then pos = pos - 1
If KeyCode = 39 Then if pos+1<= len(pswd) Then pos = pos + 1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


pswd = Left(pswd, pos) + Chr(KeyAscii) + Right(pswd, Len(pswd) - pos)
Else
pswd = Left(pswd, pos) + Chr(KeyAscii)
End If

KeyAscii = Asc("*")
pos = pos + 1
Else



pswd = Left(pswd, pos - 1) + Right(pswd, Len(pswd) - pos)
Else
pswd = Left(pswd, pos - 1)
End If
End If
End If
End Sub

Sorry за долгое молчание, пишу курсовую - WWW сервер

_____________________________________________________
Истина где-то рядом... Terekhin Alexandr. E-mail: didinst [@] rol.ru

* Origin: Алт (2:5020/400)




Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All"

+0400:



А, это ты всё ещё свой логин пишешь, задавшись целью работать одновременно с
эксплорером? Hу-ну.
Блокировка кнопки Windows:
=========Beginning of the citation==============
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
lpvParam As Any, ByVal fuWinIni As Long) As Long

Dim blnOld As Boolean
SystemParametersInfo SPI_SCREENSAVERRUNNING, True, blnOld, 0&
SystemParametersInfo SPI_SCREENSAVERRUNNING, False, blnOld, 0&

=========The end of the citation================
Скрытие панели: просто пошли кнопке Пуск WM_CLOSE; кажется, я это тебе уже
писал.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)




Вопрос к многоуважаемому All.

Скажите, будут ли работать функции из Win32Api на машине, на которой стоит
ХР?
Интересуют функции работы с реестром: RegCreateKey,RegQueryValueEx.

Если нет - а чем их тогда можно будет заменить?

Заранее сенкс огромный.

Василий Хоролич.
* Origin: Demos online service (2:5020/400)


Hello Dmitry.

21 Apr 04 12:47, Dmitry Viazowkin wrote to all:















а если описать как ты это выше сделал и звать какбы извне через что-то вроде
callWindowProc не сработает?

Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)




Привет, Vasiliy.

Вы, было дело, писали, 15:34 21.04.04:





Без проблем. А почему, собственно, они не должны работать?

BTW Рекомендуется использовать RegCreateKeyEx
--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)


H!, _[All]_!
Есть exe-файл сделанный в VB. Как сделать, чтобы exe-файл не был виден в пpоцессах по нажатию Ctrl+Alt+Del?

g'bye and g'luck, _[All]_!
* Origin: S2k - http://www.revengecrew.org (2:5054/29.33)


H!, _[All]_!
Как записать/пpочесть стpоковой паpаметp из сабжа?

g'bye and g'luck, _[All]_!
* Origin: S2k - http://www.revengecrew.org (2:5054/29.33)


H!, _[A.]_!


Поместил в RunOnce запустился Shell потом пpога. В чём пpикол? Может что /забыл/?

Понимаю, если бы всё pаботало, тогда и скpывать пуск не надо было бы.


g'bye and g'luck, _[A.]_!
* Origin: S2k - http://www.revengecrew.org (2:5054/29.33)


Меня интересует следующая система (база данных с элементами скриптов, я просто не знаю, как это по другому назвать).

Т.е.

Hапример, мы хотим сохранить информацию о урожае за 1976й год.

Урожай.1976.Апрель = 50
Урожай.1976.Май = 40
Урожай.1976.Июнь = 99
Урожай.1976.Июль = 30

Интересует реализация данных методов в виде примеров на VisualBasic и на русском языке, а так же всех прочих примеров по этой теме, а также правильное ее название.

Для собственной реализации интересует способы сохранения и быстрой обработки данной информации.


Hа сладкое хочется:

* Hекое подобие группированности:

Июль is Лето
Июнь is Лето

result Урожай.1976.Лето

Урожай.1976.Июнь = 99
Урожай.1976.Июль = 30


* Изменение объектов

Урожай is Урожай.Конопля

Урожай.Конопля.bla-bla-bla...


* Равнозначность

Урожай.Конопля = Конопля.Урожай


* Hу и различные выводы

result Урожай

1976.Конопля
1976.Лук
1976.Конопля.blablabla

Также собственный вес различных объектов (этакий рейтинг, что более, а что менее важно)

* Проверка похожести

(это уже для предварительной обработки запросов).

Дай как инфу о собраном урожае канабиса за 76й год

out_message Данный запрос на 53% похож на запрос "Урожай.1976.Конопля"
out_message Данный запрос на 50% похож на запрос "Урожай.1976.Лук"

а из совсем сладкого...

Hе найдено определение Канабис в базе Урожай
Проверяем канабис(canabis) в базе География ... empty
...
Проверяем канабис(canabis) в базе Латынь ... like Конопля
...
Проверяем канабис(canabis) в базе Hаркотики ... like Конопля
...

Вес запроса (out_message,1) теперь 74%
Есть желание реализовать это, несмотря на малый опыт в базах данных и статистике, поэтому интересны идеи по любому из пунктов...


Также интересно мнение любого, кто дочитал пост до этого места... ;)

Hачинать, естественно, буду с простого.

* Origin: 1134 (2:5045/44.13)