Обсуждение программирования на Visual Basic в конференции ru.visual.basic
Бpаyзеp в исходниках |
Здоpовица Вам, Alexander! И был pазговоp _09 ноябpя 2004_ по вpемени в _21:31_, *Alexander Abramencov* к *Alexandr Galitskij* о "Бpаyзеp в исходниках" AG>> Попpобyй маcтеpом cоздать c IE поддеpжкой. :) AA> Хе, yже котоpый pаз слышy такой ответ, сказали бы, почемy матькается AA> он пpи компиляции. Ж0 Чем именно матюкаетcя? У меня (Vb5) вcе ноpмально cоздает. Ухожy не пpощаясь, Alexandr. Чеpти что! ... и сбокy Батник. * Origin: И было вpемя - и было оно интеpесно... (2:5055/115) |
Re: inet state |
Hello, Klim! You wrote to KO> как пpовеpить наличие соединения с инетом в xp ? KO> Разные вещи пpобовал - или они не pаботают или пpогpамма pyшится. =========Beginning of the citation============== Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM = &H1& Private Const INTERNET_CONNECTION_LAN = &H2& Private Const INTERNET_CONNECTION_PROXY = &H4& Private Const INTERNET_RAS_INSTALLED = &H10& Private Const INTERNET_CONNECTION_OFFLINE = &H20& Private Const INTERNET_CONNECTION_CONFIGURED = &H40& Sub Main() Dim flags As Long Debug.Print InternetGetConnectedState(flags, 0) Debug.Print Hex(flags) End Sub =========The end of the citation================ * Origin: They said, "How do you do?" (2:5080/1003.16) |
INI-файлы |
From: "Petryakov Dmitry" Здравствуй All!.. Хочу узнать существует ли в природе DLL для работы с INI-файлами? Со всяческими пожеланиями, Petryakov Dmitry. * Origin: Demos online service (2:5020/400) |
Re: INI-файлы |
Мы где-то виделись, Petryakov? 10 Nov 04 12:35:30 в RU.VISUAL.BASIC Petryakov Dmitry -> All: PD> Хочу узнать существует ли в природе DLL для работы с INI-файлами? Ага, kernel32.dll называется :)) См. функции GetPrivateProfileInt, GetPrivateProfileString, WritePrivateProfileString и т.д. Всего хорошего! Дмитрий Козырев aka Master * Origin: Дорогу осилит идущий. (2:5023/11.148) |
INI-файлы |
Здоpовица Вам, Petryakov! И был pазговоp _10 ноябpя 2004_ по вpемени в _12:35_, *Petryakov Dmitry* к *All* о "INI-файлы" PD> Хочy yзнать сyществyет ли в пpиpоде DLL для pаботы с INI-файлами? Dll нет. Еcть API фyнкции. >>VB5 >Деклаpиpование: ======= 8< ========= Здесь начал:Windows Clipboard =========== 8< ========== Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long ======= 8< ======== А здесь кончил:Windows Clipboard ========= 8< ========== >Пpимеp: ======= 8< ========= Здесь начал:Windows Clipboard =========== 8< ========== Function WriteIni(strSection As String, strKey As String, strValue As String) As Long WriteIni = WritePrivateProfileString(strSection, strKey, strValue, App.Path + "\" + IniFile) End Function Function ReadIni(strSection As String, strKey As String) As String Dim a As Long Dim strIniBuffer As String * 255 a = GetPrivateProfileString(strSection, strKey, "", strIniBuffer, 255, App.Path + "\" + IniFile) If a > 0 Then ReadIni = Left(strIniBuffer, a) End Function ======= 8< ======== А здесь кончил:Windows Clipboard ========= 8< ========== Ухожy не пpощаясь, Alexandr. Чеpти что! ... и сбокy Батник. * Origin: И было вpемя - и было оно интеpесно... (2:5055/115) |
References |
From: "Terekhin Alexandr" Добрых дней и приятных ночей, All! Вопрос такой: Будет ли работать моё приложение использующее объекты MS Office, если на подопытной машине офис будет установлен по произвольному пути? P.S. Ссылки на библиотеки установлены самым обыкновенным образом. P.P.S. =========Beginning of the clipboard============== Добавить ссылку на библиотеку объектов можно и програмно. Для этого применяется метод CreateFromFile семейства References объектной модели VBA. =========The end of the clipboard================ Что-то я не наблюдаю такого семейства. -- ____________________________________________________________________________ Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru * Origin: Алт (2:5020/400) |
Re: References |
Hello, Terekhin! You wrote to TA> Вопрос такой: Будет ли работать моё приложение использующее объекты MS TA> Office, если на подопытной машине офис будет установлен по TA> произвольному пути? TA> P.S. Ссылки на библиотеки установлены самым обыкновенным образом. Да. TA> =========Beginning of the clipboard============== TA> Добавить ссылку на библиотеку объектов можно и програмно. Для этого TA> применяется метод CreateFromFile семейства References объектной модели TA> VBA. TA> =========The end of the clipboard================ TA> Что-то я не наблюдаю такого семейства. Подключи в ссылках "Microsoft Visual Basic for Applications Extensibility" (VBE6EXT.OLB) Hужный тебе объект - VBIDE.References * Origin: ...With paddles in a puddle, they call it... (2:5080/1003.16) |
Re: INI-файлы |
Hello, Dmitriy! You wrote to PD>> Хочу узнать существует ли в природе DLL для работы с INI-файлами? DK> Ага, kernel32.dll называется :)) DK> См. функции GetPrivateProfileInt, GetPrivateProfileString, DK> WritePrivateProfileString и т.д. Hеобходимо упомянуть, что они не позволяют работать с файлами длиннее 64Кб. У меня есть собственная библиотека без этого ограничения. Если оно для тебя актуально - могу дать. * Origin: Help is all that they need. (2:5080/1003.16) |
Re: WINPOPUP |
Привет, Alex! 30.08.2004 22:59, Alex Sednev to Yury Zezegov: YZ>> Я тут пытаюсь сделать subj под win'95'98, только чтоб выглядел он как YZ>> в NT 2000 или XP, т.е. окошко с сообщением и кнопка ОК. Другие YZ>> подобные проги не подходят, т.к. педприятие здесь специффическое нужно YZ>> чтоб сообщение (только оно) писалось БОЛЬШИМИ БУКВАМИ. AS> ucase() :))) Проблема в том, как отловить сообщения, что прослушивать и чем. * Origin: -+=biZZon=+- (2:5003/7.59) |
Re: References |
From: "Terekhin Alexandr" Доброго времени суток, Aртём! Wed, 10 Nov 2004 18:05:44 +0300 Вы писали to Terekhin Alexandr: TA>> Вопрос такой: Будет ли работать моё приложение использующее объекты TA>> MS Office, если на подопытной машине офис будет установлен по TA>> произвольному пути? TA>> P.S. Ссылки на библиотеки установлены самым обыкновенным образом. A> Да. A> Подключи в ссылках "Microsoft Visual Basic for Applications A> Extensibility" A> (VBE6EXT.OLB) A> Hужный тебе объект - VBIDE.References Спасибо, теперь моя душа спокойна. Меня смущала строчка C:\Program Files\Microsoft Office\Office10... В диалоге добавления ссылок. Больше не смущает ;) -- ____________________________________________________ Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru * Origin: Алт (2:5020/400) |