Конференция VBStreets

**Maxxx.!!!.** » 20.02.2007 (Вт) 17:58

RamMerlabs писал(а):Maxxx.!!!., прошу прощения, что забил твой топик ерундой!

Да простит тебя Бог, сын мой. Аминь!

**Cytron** » 20.02.2007 (Вт) 20:05

Maxxx.!!!.
Ты понимаешь, зачем нужен public? :roll:

**Maxxx.!!!.** » 20.02.2007 (Вт) 20:35

Cytron писал(а):Maxxx.!!!.
Ты понимаешь, зачем нужен public?

Ну, наверное для того, чтобы переменная была видна во всей прграмме?

**Cytron** » 20.02.2007 (Вт) 20:47

да. а то я просто заметил, что ты везде, где надо и где не надо его используешь.

**Maxxx.!!!.** » 21.02.2007 (Ср) 17:00

Cytron писал(а):да. а то я просто заметил, что ты везде, где надо и где не надо его используешь.

На всякий случай использую

Но, все-таки, как мне UNDO реализовать?

BV » 21.02.2007 (Ср) 18:23

SendMessage с EM_UNDO

**Maxxx.!!!.** » 21.02.2007 (Ср) 20:26

BV писал(а):SendMessage с EM_UNDO

Так я еще как это использовал - без толку!

**EUGY** » 21.02.2007 (Ср) 20:48

Макс, вот видишь что бывает после таких вопросов.
Вот тебе пример, угомонись :lol:

**Maxxx.!!!.** » 22.02.2007 (Чт) 17:39

EUGY писал(а):Макс, вот видишь что бывает после таких вопросов.
Вот тебе пример, угомонись

Спасибо большое! Только вот при попытке скачать архив выводится сообщение что скачиваемого файла нет

**Cytron** » 22.02.2007 (Чт) 18:50

404 File Not Found: The File files/undo_131.zip does not exist.

**EUGY** » 22.02.2007 (Чт) 19:13

модераторы украли и пытаются взломать? :lol:

ну ведь банальный пример:

' в коде формы
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_UNDO = &HC7

Private Sub Command1_Click()
SendMessage RichTextBox1.hwnd, EM_UNDO, 0, 0
End Sub
' на форме положить ocx RichTextBox1 (RichTextBox) и "кнопку"

**Maxxx.!!!.** » 23.02.2007 (Пт) 11:19

EUGY писал(а):модераторы украли и пытаются взломать?

ну ведь банальный пример:

' в коде формы
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_UNDO = &HC7

Private Sub Command1_Click()
SendMessage RichTextBox1.hwnd, EM_UNDO, 0, 0
End Sub
' на форме положить ocx RichTextBox1 (RichTextBox) и "кнопку"

Да речи нет, что банальный. Так ведь сто раз так пробовал: никакой реакции

**EUGY** » 23.02.2007 (Пт) 15:12

Да речи нет, что банальный. Так ведь сто раз так пробовал: никакой реакции

Ну ...

dim ret as long

ret =SendMessage (...) возвращает что?

Конференция VBStreets

Несколько вопросов: о RTF, о массивах, рейтингах и т.д.

Кто сейчас на конференции