RusFAQ.ru: Программирование на Basic / VBA

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 135
от 19.10.2005, 23:21

Вопрос № 27.702

Добрый день! В формах Excel можно работать с элементом ListView. В инете, чаще всего, встречаются статьи для Access, применение в Excel, практически не описано. В своем приложении хочу с его помощью организовать форму, где таблица строится из списка ячеек, отобранных по условию и дать возможность пользователю вводить/изменять данные. Может "много хочу" от этого элемента -:))) мне надо, что бы для редактирования была доступна, например, ячейка ListView в строке 4 столбец 3. Сейчас для редактирования доступны ячейки только первого столбца. Фрагмент моего кода: frmL.LV.ListItems.Clear frmL.LV.ColumnHeaders.Clear frmL.LV.ColumnHeaders.Add 1, , "Код", 50 frmL.LV.ColumnHeaders.Add 2, , "Наименование", 150, lvwColumnLeft frmL.LV.ColumnHeaders.Add 3, , "Количество", 50, lvwColumnLeft For i = 1 To 10 frmL.LV.ListItems.Add i, , Cells(i + 1, 1).Value frmL.LV.ListItems(i).ListSubItems.Add 1, , Cells(i + 1, 2).Value Next frmL.Show Форма frmL, ListView - LV Может я не правильно наполняю его?

Отправлен: 14.10.2005, 18:42 Вопрос задал: Кулагин Сергей Викторович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Залетин Виталий Викторович Здравствуйте, Кулагин Сергей Викторович! Если не ошибаюсь, ListView не адет узнать, на каком SubItem клацнуль мышью, но если заранее известно, какой столбец, какая строка, то могу посоветовать создать скрытое текстовое окно и в нужное время(двойной щелчок) в нужном месте (посчитать от первого столбца местоположение) показать его. Я так делаю с MSHFlexGrid. --------- Учиться никогда не поздно. Особенно программированию!

Ответ отправил: Залетин Виталий Викторович (статус: 4-ый класс) Отправлен: 15.10.2005, 14:54 Оценка за ответ: 4

Вопрос № 27.712

Здравствуйте! Надо что бы когдо программа определит что пользователь подключён к интернету выскакивала форма. Причём как сделать что бы выскакивала форма я знаю, а вот определить подключ. ли польз. к нету я не знаю как!?

Отправлен: 14.10.2005, 21:01 Вопрос задал: Dushin Igor (статус: 1-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Licvidator Здравствуйте, Dushin Igor! Три способа узнать это (см приложение) Приложение: '---1--- Private Sub CheckConnection1() Dim ReturnCode As Long Dim hKey As Long Dim lpSubKey As String Dim phkResult As Long Dim lpValueName As String Dim lpReserved As Long Dim lpType As Long Dim lpData As Long Dim lpcbData As Long lpSubKey = "SystemCurrentControlSetServicesRemoteAccess" & Chr$(0) ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, phkResult) If ReturnCode = ERROR_SUCCESS Then hKey = phkResult lpValueName = "Remote Connection" lpReserved = APINULL lpType = APINULL lpData = APINULL lpcbData = APINULL ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, ByVal lpData, lpcbData) lpcbData = Len(lpData) ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, lpData, lpcbData) If ReturnCode = ERROR_SUCCESS Then If lpData = 0 Then MsgBox "Your computer is not connected to Internet via modem", vbInformation, "Checing connection" Else MsgBox "Your computer is connected to Internet via modem", vbInformation, "Checing connection" End If Else MsgBox "Your computer is not connected to Internet via modem, but it can be connected via LAN", vbInformation, "Checing connection" End If End If RegCloseKey (hKey) End Sub '---2--- Private Sub CheckConnection2(Optional ByRef ConnectionInfo As Long, Optional ByRef sConnectionName As String) Dim dwFlags As Long Dim sNameBuf As String, msg As String Dim lPos As Long sNameBuf = String$(513, 0) If InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&) Then lPos = InStr(sNameBuf, vbNullChar) If lPos > 0 Then sConnectionName = Left$(sNameBuf, lPos - 1) Else sConnectionName = "" End If msg = "Your computer is connected to Internet" & vbCrLf & "Connection Name: " & sConnectionName If (dwFlags And INTERNET_CONNECTION_LAN) Then msg = msg & vbCrLf & "Connection use LAN" ElseIf lFlags And INTERNET_CONNECTION_MODEM Then msg = msg & vbCrLf & "Connection use modem" End If If lFlags And INTERNET_CONNECTION_PROXY Then msg = msg & vbCrLf & "Connection use Proxy" If lFlags And INTERNET_RAS_INSTALLED Then msg = msg & vbCrLf & "RAS INSTALLED" Else msg = msg & vbCrLf & "RAS NOT INSTALLED" End If If lFlags And INTERNET_CONNECTION_OFFLINE Then msg = msg & vbCrLf & "You are OFFLINE" Else msg = msg & vbCrLf & "You are ONLINE" End If If lFlags And INTERNET_CONNECTION_CONFIGURED Then msg = msg & vbCrLf & "Your connection is Configured" Else msg = msg & vbCrLf & "Your connection is not Configured" End If Else msg = "Your computer is NOT connected to Internet" End If MsgBox msg, vbInformation, "Checking connection" End Sub '---3--- Private Sub CheckConnection3() Dim sTmp As String Dim hInet As Long Dim hUrl As Long Dim Flags As Long Dim url As Variant hInet = InternetOpen(App.Title, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&) sTmp = Me.Caption Me.Caption = "Checking connection with www.yahoo.com..." If hInet Then Flags = INTERNET_FLAG_KEEP_CONNECTION Or INTERNET_FLAG_NO_CACHE_WRITE Or INTERNET_FLAG_RELOAD hUrl = InternetOpenUrl(hInet, "http://www.yahoo.com", vbNullString, 0, Flags, 0) If hUrl Then MsgBox "Your computer is connected to Internet", vbInformation, "Checing connection" Call InternetCloseHandle(hUrl) Else MsgBox "Your computer is not connected to Internet", vbInformation, "Checing connection" End If End If Call InternetCloseHandle(hInet) Me.Caption = sTmp End Sub

Ответ отправил: Licvidator (статус: Профессор) Отправлен: 14.10.2005, 22:55

Отвечает: _Виталий Licvidator 3 способа и ни одного полного. Ни объявленных API, ни определений констант....... Здравствуйте, Dushin Igor! Один способ но работает без заморочек;-) Код для кнопки: ---------------------------------- Private Sub Command1_Click() Dim Inet As WinInet Set Inet = New WinInet If Inet.ActiveConnection() Then MsgBox "Connected" Else MsgBox "Not connected" End If Set Inet = Nothing End Sub ---------------------------------- Код для Class Module возми из приложения. Имя класса WinInet. Приложение: Option Explicit Public Enum NetConnTypeConstants INTERNET_CONNECTION_MODEM = &H1& INTERNET_CONNECTION_LAN = &H2& INTERNET_CONNECTION_PROXY = &H4& INTERNET_RAS_INSTALLED = &H10& INTERNET_CONNECTION_OFFLINE = &H20& INTERNET_CONNECTION_CONFIGURED = &H40& End Enum Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" _ (ByRef lpdwFlags As Long, _ ByVal lpszConnectionName As String, _ ByVal dwNameLen As Long, _ ByVal dwReserved As Long _ ) As Long Private Function InternetConnected( _ Optional ByRef eConnectionInfo As NetConnTypeConstants, _ Optional ByRef sConnectionName As String _ ) As Boolean Dim dwFlags As Long Dim sNameBuf As String Dim lR As Long Dim iPos As Long sNameBuf = String$(513, 0) lR = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&) eConnectionInfo = dwFlags iPos = InStr(sNameBuf, vbNullChar) If iPos > 0 Then sConnectionName = Left$(sNameBuf, iPos - 1) ElseIf Not sNameBuf = String$(513, 0) Then sConnectionName = sNameBuf End If InternetConnected = (lR = 1) End Function Private Function ConnType() As Long Dim connInfo As NetConnTypeConstants InternetConnected connInfo ConnType = connInfo End Function Public Function ActiveConnection() As Boolean ActiveConnection = IIf(InternetConnected() = True And (ConnType And INTERNET_CONNECTION_MODEM), True, False) End Function

Ответ отправил: _Виталий (статус: 8-ой класс) Отправлен: 15.10.2005, 02:47 Оценка за ответ: 5 Комментарий оценки: Отлично всё работает!

Отвечает: Залетин Виталий Викторович Здравствуйте, Dushin Igor! Эта штука называется RAS. Вот статья из НЕТа в тему: -------------------------------------------------------------------------------- Как я могу сделать disconnect от Интернета, используя VisualBasic? Если Вам нужно завершить все соединения с интернетом используя Visual Basic, Вы можете использовать функции Remote Access Services Hangup. Перво наперво необходимо объявить следующий код в секции declaration формы или модуля. Declarations Public Const RAS_MAXENTRYNAME As Integer = 256 Public Const RAS_MAXDEVICETYPE As Integer = 16 Public Const RAS_MAXDEVICENAME As Integer = 128 Public Const RAS_RASCONNSIZE As Integer = 412 Public Const ERROR_SUCCESS = 0& Public Type RasEntryName dwSize As Long szEntryName(RAS_MAXENTRYNAME) As Byte End Type Public Type RasConn dwSize As Long hRasConn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Type Public Declare Function RasEnumConnections Lib _ "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _ Any, lpcb As Long, lpcConnections As Long) As Long Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _ "RasHangUpA" (ByVal hRasConn As Long) As LongPublic _ gstrISPName As String Public ReturnCode As Long Procedure Public Sub HangUp() Dim i As Long Dim lpRasConn(255) As RasConn Dim lpcb As Long Dim lpcConnections As Long Dim hRasConn As Long lpRasConn(0).dwSize = RAS_RASCONNSIZE lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize lpcConnections = 0 ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _ lpcConnections) If ReturnCode = ERROR_SUCCESS Then For i = 0 To lpcConnections - 1 If Trim(ByteToString(lpRasConn(i).szEntryName)) _ = Trim(gstrISPName) Then hRasConn = lpRasConn(i).hRasConn ReturnCode = RasHangUp(ByVal hRasConn) End If Next i End If End Sub Public Function ByteToString(bytString() As Byte) As String Dim i As Integer ByteToString = "" i = 0 While bytString(i) = 0& ByteToString = ByteToString & Chr(bytString(i)) i = i + 1 Wend End Function Использование процедуры HangUp теперь достаточно просто вызвать процедуру HangUp, и все модемные соединия завершаться: Call HangUp --------- Учиться никогда не поздно. Особенно программированию!

Ответ отправил: Залетин Виталий Викторович (статус: 4-ый класс) Отправлен: 15.10.2005, 14:47

Отвечает: Евгений Неверов Здравствуйте, Dushin Igor! Функция указана ниже. Возвращает True, когда пользователь в сети, False - в противном случае Приложение: Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long ' эту строку впишите в самое начало файла формы или модуля Public Function inNET() As Boolean Dim dwFlags As Long Dim sNameBuf As String sNameBuf = String$(513, 0) If InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&) Then inNET = True Else inNET = False End If End Function

Ответ отправил: Евгений Неверов (статус: Студент) Отправлен: 15.10.2005, 15:56

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.