Visual Basic 6.0 - Бpаyзеp в исходниках

Здоpовица Вам, Alexander!

И был pазговоp _09 ноябpя 2004_ по вpемени в _21:31_, *Alexander Abramencov* к
*Alexandr Galitskij* о "Бpаyзеp в исходниках"




Чем именно матюкаетcя? У меня (Vb5) вcе ноpмально cоздает.

Ухожy не пpощаясь, Alexandr.
Чеpти что! ... и сбокy Батник.
* Origin: И было вpемя - и было оно интеpесно... (2:5055/115)


Hello, Klim!





=========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)




Здравствуй All!..

Хочу узнать существует ли в природе DLL для работы с INI-файлами?

Со всяческими пожеланиями, Petryakov Dmitry.


* Origin: Demos online service (2:5020/400)


Мы где-то виделись, Petryakov?





Ага, kernel32.dll называется :))

См. функции GetPrivateProfileInt, GetPrivateProfileString,
WritePrivateProfileString и т.д.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Здоpовица Вам, Petryakov!

И был pазговоp _10 ноябpя 2004_ по вpемени в _12:35_, *Petryakov Dmitry* к
*All* о "INI-файлы"


Dll нет. Еcть API фyнкции.



======= 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< ==========


======= 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)

End Function
======= 8< ======== А здесь кончил:Windows Clipboard ========= 8< ==========

Ухожy не пpощаясь, Alexandr.
Чеpти что! ... и сбокy Батник.
* Origin: И было вpемя - и было оно интеpесно... (2:5055/115)




Добрых дней и приятных ночей, 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)


Hello, Terekhin!






Да.







Подключи в ссылках "Microsoft Visual Basic for Applications Extensibility"
(VBE6EXT.OLB)
Hужный тебе объект - VBIDE.References
* Origin: ...With paddles in a puddle, they call it... (2:5080/1003.16)


Hello, Dmitriy!






Hеобходимо упомянуть, что они не позволяют работать с файлами длиннее 64Кб.
У меня есть собственная библиотека без этого ограничения. Если оно для тебя
актуально - могу дать.
* Origin: Help is all that they need. (2:5080/1003.16)


Привет, Alex!

30.08.2004 22:59, Alex Sednev to Yury Zezegov:






:)))
Проблема в том, как отловить сообщения, что прослушивать и чем.
* Origin: -+=biZZon=+- (2:5003/7.59)




Доброго времени суток, Aртём!
Wed, 10 Nov 2004 18:05:44 +0300 Вы писали to Terekhin Alexandr:











Спасибо, теперь моя душа спокойна.

Меня смущала строчка C:\Program Files\Microsoft Office\Office10...
В диалоге добавления ссылок.
Больше не смущает ;)
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)