Visual Basic 6.0 - Создание дистрибутива

Я приветствую тебя Alexander!

Sat Feb 14 2004 12:56, Alexander Shherbakov (2:5020/794.77) wrote to Kapaev Alex:



Да, неплохой сетапер. Только он почему то под ХР при установке не всё регистрирует :( или неправельно регистрирует - может я что то не то делаю?

С глубочайшим уважением Sergey

* Origin: Latona (FidoNet 2:4651/18.50)


Добpый день\утpо\вечеp\ночь, достопочтимый Sergey !








[... малость поскипано ...]




я вот пpоще от стандаpтного меню избавился, когда своё надо было вывести:

Private Sub Пpимечания_MouseDown(Button As Integer, Shift As Integer, x As
Single, y As Single)
If Button And vbRightButton Then
Пpимечания.Enabled = False 'избавляемся от стандаpтного меню
Пpимечания.Enabled = True
PopupMenu mnuPopupMyMenu
End If
End Sub

ЗЫ хз почему TextBox так pаботает,
но пеpедёpгивание .Enabled = False/True
помогает ...


С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)




Привет Dmitry!


Тоже хорошая идея...

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9






* Origin: КПКП "Транс Агентство" (2:5020/400)




Hа компьютере (Windows 2000 SP4 и Visual Basic 6.0 SP5) имеется несколько
приложений на Бэйсике, еще месяц назад отлаженных, откомпилированных и
благополучно забытых.

И вот пару дней назад понадобилось их открыть и чего-то там поменять. Hо с
одним из них творится странное: открываем проект, запускаем его прямо из
VB, и сразу же выдается:

VB6.EXE - Application Error
The instruction at "0x********" referenced memory at "0x********". The
memory could not be "written".
Click on OK to terminate the program
Click on CANCEL to debug the program

и Бэйсик вылетает к чертовой бабушке. Один коллега сказал, что иногда
такое бывает, если при запуске не открыта ни одна форма. Открыл форму,
запустил - то же самое. Открыл две формы, три - не помогло. Запуск Trace
Into, Step Over или Start with full compile дает тот же эффект. Hо если

нормально.

Все это только в одном VB-приложении - запуск из VB любого другого проекта
происходит нормально. В то же время на другой машине (Win 2000 SP3 и VB
6.0 SP5) и этот проект запускается без проблем. Подскажите, пожалуйста,
как бороться - не хочется из-за этого винды переставлять.

--
Best regards
(M)ike
При ответе на e-mail убрать из адреса NOS

* Origin: Best antimagic/antiUFO cure: http://skeptik.net (2:5020/400)


оПХБЕРЯРБСЧ!

я ОКЮРТHПЛHИ .NET ДЕК МЕ ХЛЕК. мH ОЮПС ВЕКHБЕЙ СРБЕПФДЮКХ, ВРH Б VS7 ЛHФМH
ОHКСВХРЭ МHПЛЮКЭМШИ exeЬМХЙ ОHД Win32. бВЕПЮ ОHЯРЮБХК VS7, МH ОHКСВХРЭ
exeЬМХЙ ОHД Win32 ОHКСВХКHЯЭ РHКЭЙH МЮ C++. бЮЯХЙ Х C# ОПЕДКЮЦЮЧР РHКЭЙH ОHД
.NET. цДЕ ЯHАЮЙЮ ГЮПШРЮ?

юМДПЕИ.


* Origin: Zenon N.S.P. news server (2:5020/52.0)


Приветствую!

С платформой .NET дел не имел. Hо пару человек утверждали, что в VS7 можно
получить нормальный exeшник под Win32. Вчера поставил VS7, но получить
exeшник под Win32 получилось только на C++. Васик и C# предлагают только под
.NET. Где собака зарыта?

Андрей.


* Origin: Zenon N.S.P. news server (2:5020/52.0)







сразу




В простейшем виде это выглядит так: создаем проект Standard EXE, на Form1
добавляем текстбокс Text1. Создаем меню mnu1, снимаем ему галку Visible,
добавляем ему произвольное подменю.
Код формы:

Option Explicit

Private Sub Form_Load()
' Включение сабклассинга
pWndProc = SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf TxtProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Выключение сабклассинга
SetWindowLong Text1.hWnd, GWL_WNDPROC, pWndProc
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Text1.SetFocus
PopupMenu mnu1
End Sub

Добавляем стандартный модуль.
Код модуля:

Option Explicit

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA"
_
(ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long
Public Const GWL_WNDPROC = -4&
Private Const WM_CONTEXTMENU = &H7B&

Public pWndProc As Long 'Сохраненный адрес прежней оконной процедуры

Public Function TxtProc(ByVal hWnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
' Hовая оконная процедура - она ловит все сообщения окна
Select Case uMsg
Case WM_CONTEXTMENU
' Система вызвала контекстное меню - ничего делать не надо,
' просто вернуть 0
Case Else
' Для остальных сообщений нужно вызвать прежнюю
' оконную процедуру и вернуть ее результат
TxtProc = CallWindowProc(pWndProc, hWnd, uMsg, wParam, lParam)
End Select
End Function

Это простейший вид сабклассинга, множественные экземпляры формы не
поддерживаются.

--
Сергей Мерзликин
http://www.smsoft.ru/ru/


* Origin: Sovintel (2:5020/400)




Tue Feb 24 2004 23:53, Savelov Anton wrote to All:



Процессы и нити, кстати, - разные вещи.





Вообще же, посмотри здесь:
http://www.jasonbock.net/vbthread.html
http://www.freevbcode.com/ShowCode.asp?ID=1287

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)




Привет, Artem.

Вы, было дело, писали, 2:28 25.02.04:




















А попробуй-ка теперь вот перепутать:

Public Enum Mesages
msg_myLable1Caption = 1
msg_myLable1ToolTipText = 2
........................
msg_CantOpenFile = 666
' etc...
End Enum

Public Function GetMesage(index As Mesages) As String
GetMesage = lngArray(index)
End Function

Public Sub SetLanguage(LangFile As String)

'Bla-Bla, сам напишешь код

myLable1.Caption = GetMesage(msg_myLable1Caption)
myLable1.ToolTipText = GetMesage(msg_myLable1ToolTipText)
'etc...

End Sub


Private Sub Command1_Click()
If GetFile(FileToOpen) = False Then
MsgBox GetMesage(msg_CantOpenFile) & FileToOpen, vbCritical
End If
End Sub
--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)


Я приветствую тебя Alexander!

Sat Feb 14 2004 12:56, Alexander Shherbakov (2:5020/794.77) wrote to Kapaev Alex:



Да, неплохой сетапер. Только он почему то под ХР при установке не всё регистрирует :( или неправельно регистрирует - может я что то не то делаю?

С глубочайшим уважением Sergey

* Origin: Latona (FidoNet 2:4651/18.50)