Голосование:
Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты.
Нет тем.
Доска почёта:
Sergey Y. Tkachev
Кононенко Роман
Kirill
Ссылки:
Несколько слов от автора:
Читайте!
Содержание выпуска
- Книги
- Определить дату изменения web-страницы
- Создать ссылку на страницу в Интернете
- Как сохранить содержимое web-страницы на диск
- Как вытащить все ссылки из htm-страницы
- Практические советы по использованию компонента WebBrowser
- Добавить сайт в список "Избранное"
- Вопрос/Ответ
 |
ADO и Visual Basic. Руководство разработчикаВ книге описано использование технологии доступа к данным (ADO) с помощью основного инструмента разработки приложений Microsoft - Visual Basic 6.0. Из книги вы узнаете, как можно исследовать источники данных при помощи окна Data View, как создавать формы для ввода и запроса данных, используя связанные элементы управления, и подсоединяться к источникам данных со сложной иерархической структурой средствами Data Environment. Далее вы изучите, как можно, используя Data Report, представлять информацию в форме, подходящей для печати, или как следует исполнять некоторые, наиболее широко распространенные задачи, связанные с обработкой данных, используя ADO внутри кода Visual Basic. В последних главах книги рассмотрены дополнительные операции, используемые в коде, в том числе формирование данных, для создания иерархических наборов записей, применение ADO в сети Internet и даже создание собственных источников данных. Чтобы более полно использовать средства ADO для извлечения информации из различных источников, в приложении к книге вы найдете справочник по языку SQL, в котором обсуждаются основы работы с оператором SQL SELECT.Автор: Гандерлой М. Издательсвто: Энтроп, Век Год издания: 2001 Кол-во страниц: 336 Стоимость: 177 р. Формат: 70х100/16 Переплёт: мягкий |
 |
Excel, VBA, Internet в экономике и финансахКнига является руководством по использованию Microsoft Excel, разработке офисных бизнес-приложений средствами VBA и конструированию Web-страниц на базе DHTML и VBScript. Рассматриваются приемы создания отчетной финансовой и экономической документации средствами MS Excel, способы анализа и обработки собранной информации для принятия на ее основе оптимального решения; даются ответы на вопросы, которые возникают у программиста при разработке автоматизированных и интегрированных систем с помощью VBA; описываются особенности конструирования пользовательских элементов управления ActiveX, а также написания Windows-сценариев. Большое внимание уделено принципам создания интерактивных Web-страниц, виртуальных каталогов и магазинов. Книга содержит уникальную коллекцию типичных примеров. Почти каждая глава заканчивается списком упражнений, способствующих закреплению материалаАвтор: Гарнаев А Издательсвто: BHV - Санкт - Петербург Год издания: 2001 Кол-во страниц: 816 Стоимость: 230 р. Формат: 70х100/16 Переплёт: мягкий |
 |
MCSD. Сертификационный экзамен 70-175. Разработка распределенных приложений на Visual Basic 6.0. Учебный курс (+ CD-ROM)Настоящий учебный курс рекомендован корпорацией Microsoft как официальное пособие для подготовки к экзамену 70-175 «Designing and Implementing Distributed Applications with Microsoft Visual Basic 6.0» по программе сертификации разработчиков программных решений на основе продуктов Microsoft (Microsoft Certified Solutions Developer, MCSD). Эта книга познакомит Вас с основными понятиями, концепциями и методами, необходимыми для разработок распределенных программных решений на базе Visual Basic 6.0.Автор: MCSD Training Kit Издательсвто: Русская Редакция Год издания: 2000 Кол-во страниц: 400 Стоимость: 272 р. Формат: 70х100/1670х100/16 Переплёт: мягкий |
 |
Microsoft Visual Basic 5.0В книге рассматривается новая пятая версия Microsoft Visual Basic - языка программирования, являющегося фактическим стандартом визуального проектирования приложений. Описываются общие черты Visual Basic, реализованные в нем концепции объектно-ориентированного программирования, среда разработки (IDE). Далее рассматривается объектно-ориентированная модель Visual Basic и доступные разработчику объектные компоненты. Подробно описываются технологии программирования на языке Visual Basic и SQL, отладка и оптимизация кода приложения, вопросы компиляции исполняемых модулей. В последующих главах освещаются практические вопросы построения приложений - работа с текстом и графикой, механизмы доступа и управления данными, работа с внешними базами данных и создание приложений клиент/сервер. Книга предназначена для широкого круга программистов, работающих в области обработки данных и информационных систем.Автор: Шмидт В Издательсвто: ABF Год издания: 1997 Кол-во страниц: 688 Стоимость: 85 р. Формат: 84x108/16 Переплёт: мягкий |
 |
Microsoft Visual Basic 6.0Нет описанияАвтор: Лабор В, Макарчук Д Издательсвто: нет данных Год издания: 2001 Кол-во страниц: 160 Стоимость: 60 р. Формат: 70х100/16 Переплёт: мягкий |
 |
Microsoft Visual Basic 6.0. Мастерская разработчика (+ CD-ROM)Книга состоит из 3 частей (34 главы) и предметного указателя. Написанная живо и доходчиво, она позволит освоить множество полезных приемов программирования, в том числе объектно-ориентированного, и научит, как создавать 32-разрядные приложения для Windows 95/98 и Windows NT — от экранных заставок до программ, ориентированных на Интернет. Кроме того, Вы узнаете, как расширить возможности языка за счет функций Win32 API и воспользоваться преимуществами технологии ActiveX.Автор: Джон Кларк Крейг, Джефф Уэбб Издательсвто: Русская Редакция Год издания: 2001 Кол-во страниц: 720 Стоимость: 272 р. Формат: 70х100/16 Переплёт: твёрдый |
 |
VB Script и ActiveXКнига предназначена для разработчиков Web - приложений на языке VBScript, желающих повысить свой профессиональный уровень и стать экспертами в этой области. В ней подробно рассказывается о новых возможностях VBScript, включая использование именованных констант, функций, переменных и коллекций, приводится вся необходимая информация о технологии ActiveX, принципах взаимодействия VBScript и Visual Basic при создании приложений, работающих на сервере. Прочитав эту книгу, вы научитесь использовать звуковые эффекты, создавать анимированную графику, строить формы для ввода данных, узнаете, как с помощью VBScript создать в Web электронный магазин и отслеживать число посетителей и деланные ими покупки. Вы даже сумеете написать увлекательную мультимедийную игру для Web.Автор: Скотт Палмер Издательсвто: Питер Год издания: 1999 Кол-во страниц: 368 Стоимость: 94 р. Формат: 70х100/16 Переплёт: мягкий |
 |
VBA 2000. СамоучительВ книге содержится краткий курс по использованию языка и системы VBA для Word и Excel 2000. Книга предназначена для начинающих программировать в среде Windows 95/98 с использованием в качестве базовых таких объектов Word и Excel, как документы, рабочие книги, листы и так далее. Материала книги достаточно для создания как простых макросов, помогающих автоматизировать рутинную повторяющуюся работу над документами и электронными таблицами, так и для разработки достаточно сложных приложений, обрабатывающих данные в диалоговых окнах, обеспечивающих пользователя самыми современными интерфейсными средствами.Автор: Кузьменко В Издательсвто: Бином Год издания: 2000 Кол-во страниц: 416 Стоимость: 116 р. Формат: 70х100/16 Переплёт: мягкий |
 |
Visual Basic 6 Desktop. Экзамен 70-176Книги серии `Экзамен – экстерном` представляют собой удобные, сжатые, хорошо структурированные конспекты для подготовки к сдаче сертификационных экзаменов на звание Microsoft Certified Solution Developer. Книга `Visual Basic 6.0 Desktop. Экзамен 70-176` содержит только действительно необходимый материал, типовые вопросы с ответами и пример экзамена. Возможно, некоторые подходы, применяемые автором, покажутся вам не совсем привычными - не удивляйтесь: это не учебник по Visual Basic; организация материала в этой книге призвана максимально облегчить задачу экзаменуемого. Учтите, что в ряде случаев экзаменационные вопросы выходят за рамки тем, отраженных в документации по Visual Basic, а иной раз правильные ответы на них даже входят в противоречие с `официальной` информацией.Автор: Майкл Макдоналд Издательсвто: Питер Год издания: 2001 Кол-во страниц: 608 Стоимость: 123 р. Формат: 60x90/16 Переплёт: мягкий |
 |
Visual Basic 6. Руководство разработчика (+ CD-ROM)Эта книга, написанная известным специалистом и неутомимым пропагандистом Visual Basic, представляет собой прекрасный путеводитель по одному из наиболее популярных визуальных средств разработки Windows-приложений. Подробно освещаются такие ключевые темы программирования на Visual Basic, как проектирование и использование элементов ActiveX, программирование баз данных и разработка Web-приложений. Несомненный интерес представляют главы, посвященные работе с графикой. Большое количество тщательно продуманных примеров облегчает восприятие материала. Подбор материала и стиль изложения делают издание интересным и полезным для программистов разных уровней.Автор: Евангелос Петрусос Издательсвто: BHV, Ирина, SYBEX Inc Год издания: 2000 Кол-во страниц: 1072 Стоимость: 267 р. Формат: 70x100/32 Переплёт: твёрдый |
Остальные книги о VB можно найти здесь.
наверх
Определить дату изменения web-страницы
Разместите на форме компонент Inet и элемент CommandButton.
Public Function PageLastModified(URL As String) As String
Dim strHeader As String
Inet1.Protocol = icHTTP
On Error Resume Next
Inet1.OpenURL (URL)
If Err.Number > 0 Then Exit Function
strHeader = Inet1.GetHeader("Last-modified")
PageLastModified = strHeader
End Function
Private Sub Command1_Click()
MsgBox PageLastModified("http://sharig.webzone.ru/IndexMainTopic.htm")
End Sub
наверх
Создать ссылку на страницу в Интернете
Данный пример разместит на рабочем столе ярлык на сайт VBnet.RU
(при условии, что ваш путь к рабочему столу = "C:\WIN\Рабочий стол").
Sub CreateInternetShortCut(URLFile As String, URLTarget As String)
Dim intFreeFile As Integer
intFreeFile = FreeFile
Open URLFile For Output As intFreeFile
Print #intFreeFile, "[InternetShortcut]"
Print #intFreeFile, "URL=" & URLTarget
Close intFreeFile
End Sub
Private Sub Form_Load()
CreateInternetShortCut "C:\WIN\Рабочий стол\test.url", "http://vbnet.ru"
End Sub
наверх
Как сохранить содержимое web-страницы на диск
Расположите на форме элемент Inet (меню Project|Components - Microsoft Internet Transfer Control 6.0).
'Вариант 1
'Расположите на форме элемент Inet (меню Project|Components - Microsoft Internet Transfer Control 6.0).
Private Sub Form_Load()
Dim b() As Byte
'установить протокол HTTP
Inet1.Protocol = icHTTP
'установить скачиваемый адрес
Inet1.URL = "http://www.microsoft.com"
'загрузить данные HTML-страницы в массив
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
'создать файл на диске и записать в него информацию
Open "c:\test.htm" For Binary Access Write As #1
Put #1, , b()
Close #1
End Sub
'Вариант 2
'Расположите на форме элемент CommandButton.
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
DownloadFile "http://sharig.webzone.ru", "c:\sharig_webzone_ru.htm"
End Sub
'Вариант 3
'Расположите на форме элемент CommandButton. Данный пример только загрузить данные со страницы в элемент TextBox. А здесь вы можете узнать, как сохранить содержимое TextBox'а в файл.
Private Sub Command1_Click()
On Error GoTo handle
Text1.Text = Inet1.OpenURL(Text2.Text, icString)
Exit Sub
handle: MsgBox "Error " & Err.Description
End Sub
наверх
Как вытащить все ссылки из htm-страницы
В одном из многочисленных примеров по работе с компонентом WebBrowser я натолкнулся на пример, как можно вытащить все ссылки из любого *.htm файла, находящегося как в интернете, так и локально на жестком диске. Честно говоря, моя жизнь после нахождения данного примера очень облегчилась, поскольку я часто работаю с инетом, со ссылками.
Нажатие на первую кнопку покажет, как можно вытащить все ссылки из файла, а нажатие на вторую кнопку - как можно вытащить ссылки только определенного типа.
Но для начала вам надо установить через меню Project | References ссылку на Microsoft Internet Control.
ПРИМЕР 1
Также вам необходимо расположить на форме 2 элемента CommandButton и элемент ListBox.
Private IEBroj1 As SHDocVw.InternetExplorer
Private Sub Form_Load()
Set IEBroj1 = New SHDocVw.InternetExplorer
End Sub
Private Sub Form_Unload(Cancel As Integer)
IEBroj1.Quit
Set IEBroj1 = Nothing
End
End Sub
Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function
Private Sub Command1_Click()
List1.Clear
Dim x
IEBroj1.Navigate "C:\1\index.htm"
Delay 3 'задержа необходима для загрузки страницы
'иногда требуется увеличить время загрузки до 30
секунд.
For i = 1 To IEBroj1.Document.links.length - 1
List1.AddItem IEBroj1.Document.links(i).href
Next
End Sub
Private Sub Command2_Click()
List1.Clear
Dim x
IEBroj1.Navigate "C:\1\index.htm"
Delay 3
For i = 1 To IEBroj1.Document.links.length - 1
If InStr(1, IEBroj1.Document.links(i).href, ".asp") <> 0 Or InStr(1,
IEBroj1.Document.links(i).href, ".htm") <> 0 Then
List1.AddItem IEBroj1.Document.links(i).href
End If
Next
End Sub
ПРИМЕР 2: Расположите на форме элемент
CommandButton и элемент ListBox.
Dim X, Y,
St1, St2, tmpY As Integer
Private Sub Command1_Click()
StripEmail ("D:\vbcode\index.htm")
List1.AddItem "=============="
StripURL ("D:\vbcode\index.htm")
End Sub
Public Sub StripEmail(FilePath As String)
Dim tmpEmail1, tmpEmail2 As String
Open FilePath For Input As #1
Do Until EOF(1)
Input #1, tmpEmail1
For X = 1 To Len(tmpEmail1)
tmpEmail2 = Mid(tmpEmail1, X, 7)
If tmpEmail2 = "mailto:" Then
St1 = X
tmpY = X + 1
For Y = 1 To Len(tmpEmail1)
tmpEmail2 = Mid(tmpEmail1, tmpY, 1)
If tmpEmail2 = Chr(34) Then
St2 = tmpY
tmpEmail2 = Mid(tmpEmail1, St1 + 7, ((St2 - St1) - 7))
If (Left(tmpEmail2, 2) <> "//") And (Left(tmpEmail2, 1) <> "
") Then
List1.AddItem tmpEmail2
Exit For
End If
End If
tmpY = tmpY + 1
Next Y
End If
Next X
Loop
Close #1
End Sub
Public Sub StripURL(FilePath As String)
Dim tmpURL1, tmpURL2 As String
Open FilePath For Input As #1
Do Until EOF(1)
Input #1, tmpURL1
For X = 1 To Len(tmpURL1)
tmpURL2 = Mid(tmpURL1, X, 7)
If tmpURL2 = "http://" Then
St1 = X
tmpY = X
For Y = 1 To Len(tmpURL1)
tmpURL2 = Mid(tmpURL1, tmpY, 1)
If tmpURL2 = Chr(34) Then
St2 = tmpY
List1.AddItem Mid(tmpURL1, St1, ((St2 - St1)))
Exit For
Else
tmpY = tmpY + 1
End If
Next Y
End If
Next X
Loop
Close #1
End Sub
наверх
Практические советы по использованию компонента WebBrowser
Прежде всего, вы можете создать проект с использованием компонента WebBrowser, используя для этой цели VB Application Wizard. Для этого войдите в меню File | New Project и выберите VB Application Wizard. Нажмите несколько раз Next, и когда программа спросит вас "Do you want your user to be able to access the Internet from your application" смело нажимайте Yes. Можно сразу нажать кнопку Finish. В ваше приложение будет добавлена возможность навигации по Интернету, используя созданный вами проект.
Расположите на основной форме CommandButton и впишите в него следующий код:
frmBrowser.Show
Некоторые возможности компонента WebBrowser у вас
автоматически добавятся, и вы сами потом можете
на досуге в них разобраться. Я а же предлагаю вам
добавить в ваш проект возможности, которые
автоматически не были добавлены Мастером
Создания Приложений.
Процесс, показывающий процесс загрузки веб-страницы
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As
Long)
On Error Resume Next
PBar.Max = ProgressMax
If Progress = -1 Then
Exit Sub
Else
If Progress <> ProgressMax Then
PBar.Value = Progress
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Else
PBar.Value = ProgressMax
progresslbl.Caption = Str(Round((Progress / ProgressMax) * 100)) & pert
Exit Sub
End If
End If
End Sub
или такой вариант.
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As
Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub
или такой вариант.
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As
Long)
On Error Resume Next
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
ProgressBar1.Refresh
End Sub
Просмотр содержимого веб-страницы "В виде HTML"
2 варианта. Загрузите оба варианта, и посмотрите, что каждый код загружает...
Text1 = WebBrowser1.Document.documentelement.innerhtml
Text2 = WebBrowser1.Document.Body.innerhtml
Вызвать окно "Печать"
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
Добавить в ComboBox URL после загрузки
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Combo1.Text = URL
End Sub
Навигация на узел в сети
WebBrowser1.Navigate "about:blank" 'пустая страница
WebBrowser1.Navigate "http://sharig.webzone.ru"
Запрет на посещение определенных узлов в Инете
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As
Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As
Boolean)
If InStr(1, URL, "playboy.com") Then
Cancel = True
MsgBox "Sorry, that site is restricted!"
End If
End Sub
Ожидание загрузки страницы
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Получить данные о загруженной странице
MsgBox WebBrowser1.LocationName 'узнать имя загруженного файла (что-то типа "inet18_webbrowser.htm")
MsgBox WebBrowser1.LocationURL 'получить URL загруженной страницы
Вызвать окно "Сохранить как..."
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
Что-то непонятное...
Private Sub WebBrowser1_SetSecureLockIcon(ByVal SecureLockIcon As Long)
If SecureLockIcon <> 0 Then
imgSecure.Picture = "D:\garbage\ICON\2\face00.ico" 'path to secure icon
Else
imgSecure.Picture = "D:\garbage\ICON\2\face01.ico" 'path to unsecure icon
End If
End Sub
Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As
Boolean)
If MsgBox("This webpage is trying to close your browser window." & vbCrLf
& vbCrLf & "Are you sure you want to close it?", vbYesNo,
"BAPNet") = vbYes Then
Unload Me
Cancel = True
ElseIf vbNo Then
Cancel = True
End If
End Sub
наверх
Добавить сайт в список "Избранное"
Данный код проверялся в Internet Explorer версии 5.0
Option Explicit
Public Enum SpecialShellFolderIDs
CSIDL_DESKTOP = &H0
CSIDL_INTERNET = &H1
CSIDL_PROGRAMS = &H2
CSIDL_CONTROLS = &H3
CSIDL_PRINTERS = &H4
CSIDL_PERSONAL = &H5
CSIDL_FAVORITES = &H6
CSIDL_STARTUP = &H7
CSIDL_RECENT = &H8
CSIDL_SENDTO = &H9
CSIDL_BITBUCKET = &HA
CSIDL_STARTMENU = &HB
CSIDL_DESKTOPDIRECTORY = &H10
CSIDL_DRIVES = &H11
CSIDL_NETWORK = &H12
CSIDL_NETHOOD = &H13
CSIDL_FONTS = &H14
CSIDL_TEMPLATES = &H15
CSIDL_COMMON_STARTMENU = &H16
CSIDL_COMMON_PROGRAMS = &H17
CSIDL_COMMON_STARTUP = &H18
CSIDL_COMMON_DESKTOPDIRECTORY = &H19
CSIDL_APPDATA = &H1A
CSIDL_PRINTHOOD = &H1B
CSIDL_ALTSTARTUP = &H1D
CSIDL_COMMON_ALTSTARTUP = &H1E
CSIDL_COMMON_FAVORITES = &H1F
CSIDL_INTERNET_CACHE = &H20
CSIDL_COOKIES = &H21
CSIDL_HISTORY = &H22
End Enum
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As SpecialShellFolderIDs, pidl As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)
Public Function AddFavorite(SiteName As String, URL As String) As Boolean
'SiteName - название сайта, URL - адрес сайта в Инете
Dim pidl As Long
Dim psFullPath As String
Dim iFile As Integer
On Error GoTo ErrorHandler
iFile = FreeFile
psFullPath = Space(255)
If SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, pidl) = 0 Then
If pidl Then
If SHGetPathFromIDList(pidl, psFullPath) Then
psFullPath = TrimWithoutPrejudice(psFullPath)
If Right(psFullPath, 1) <> "\" Then psFullPath = psFullPath & "\"
psFullPath = psFullPath & SiteName & ".URL"
Open psFullPath For Output As #iFile
Print #iFile, "[InternetShortcut]"
Print #iFile, "URL=" & URL
Close #iFile
End If
CoTaskMemFree pidl
AddFavorite = True
End If
End If
ErrorHandler:
End Function
Public Function TrimWithoutPrejudice(ByVal InputString As String) As String
Dim sAns As String
Dim sWkg As String
Dim sChar As String
Dim lLen As Long
Dim lCtr As Long
sAns = InputString
lLen = Len(InputString)
If lLen > 0 Then
For lCtr = 1 To lLen
sChar = Mid(sAns, lCtr, 1)
If Asc(sChar) > 32 Then Exit For
Next
sAns = Mid(sAns, lCtr)
lLen = Len(sAns)
If lLen > 0 Then
For lCtr = lLen To 1 Step -1
sChar = Mid(sAns, lCtr, 1)
If Asc(sChar) > 32 Then Exit For
Next
End If
sAns = Left$(sAns, lCtr)
End If
TrimWithoutPrejudice = sAns
End Function
Private Sub Form_Load()
AddFavorite "Сайт VBnet.RU", "http://vbnet.ru"
End Sub
наверх
Мои программы
BalloonMessage for MS Agent
Автор: Шатрыкин Иван. Соавтор: Павел Сурменок.
наверх
Вопрос/Ответ
Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.
Вопросы:Автор вопроса: Nikolay
Ответ ожидается по этому адресу
Возможно ли с помощью VB ускорить системный таймер?
Если да, то как?
Если не трудно напишите по подробней...
Автор вопроса: Дима
Ответ ожидается по этому адресу
Как сохранить выделенный текс вне формы в буфер или в переменную
Автор вопроса: Alecsei
Ответ ожидается по этому адресу
Как можно добавить имя Data Base в DSN через VB6?
Автор вопроса: alek
Ответ ожидается по этому адресу
По поиску в базе на форуме был такой код.
Но почему то он не ищет. т.е на искомое слово базу не двигает. И за чем в этом коде нужен Form2.Visible = True? Помогите пожалуйста разобратся или дайте ссылку на небольшой пример по поиску в базе(например Access или Excel) В книгах Реселмана,Писли,Пручняка,Ананьева и Федорова по поиску вообще ничего нет,а нужно очень срочно.
Private Sub Command1_Click()
Data1.Recordset.FindFirst "Author" = Text1.Text _
& Trim(InputBox("Введите фамилию:")) & Text1.Text
If Data1.Recordset.NoMatch Then Form2.Visible = True
End Sub
Автор вопроса: КинГМинЮ
Ответ ожидается по этому адресу
Помогите, пожалуйста, кто может! Как контролировать подключение и отключение к интернету средствами VBA?
Автор вопроса: Duke
Ответ ожидается по этому адресу
Как можно в ресурсы засунуть WAV,AVI а потом их воспроизвести.
Ответы:
Вопрос:
Может кто-нибудь знает, как спрятать значки на рабочем столе? (в смысле так, как это делает Windows при определённых настройках)
Ответ:
Автор ответа: SLTK
'Код в модуль
Declare Function ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&)
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Код в программу
Dim hHandle As Long
hHandle = FindWindow("progman", vbNullString)
Call ShowWindow(hHandle, SW_NORMAL) 'Показать
hHandle = FindWindow("progman", vbNullString)
Call ShowWindow(hHandle, SW_HIDE) 'Скрыть
Вопрос:
Может кто-нибудь знает, как спрятать значки на рабочем столе? (в смысле так, как это делает Windows при определённых настройках)
Ответ:
Автор ответа: Valera
Пропеши в реестре по этому пути
(HREY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer) и создай параметр DWORD NoDesktop=1 (если 0 - все значки видны.)
Вопрос:
Как использовать Assembler В VB?
Ответ:
Автор ответа: Valera
Ни как, если очень надо то пиши DLL библиотеку на C++ и делай Assembler'ную вставку туда.
Вопрос:
Скажите, пожалуйста, можно ли при движении мышью (без клика) по пунктам меню считывать их содержимое?
Ответ:
Автор ответа: CaHeK
Есть такое событие MouseMove, оно как раз и отвечает за наведение мыши…
Вопрос:
Подскажите пожалуйсто как передать параметры в отчет Cristal Reports Используя crpe32.dll (если есть у кого описание API функций этой DLL пришлите пож. буду рад любой информации)
Ответ:
Автор ответа: Sergey Y. Tkachev
Тема весьма интересная. Вообще-то я предпочитаю использовать SelectionFormula, мне так больше нравится. Но если говорить о параметрах, то это будет выглядеть приблизительно так:
CR.ParameterFields(0) = "StartDate;DateTime(2001,08,20,0,0,0);TRUE"
CR.ParameterFields(1) = "EndDate;DateTime(2001,08,27,23,59,59);TRUE"
В данном примере CR - имя контрола Создается семейство параметров, каждому из которых присваивается СТРОКОВОЕ выражение, состоящее из трех частей: Имя параметра, значение и флаг обновления (ставим всегда в TRUE).В примере оба параметра являются датами, поэтому для их формирования применена функция DateTime (это функция кристала, а не бэйсика). В качестве второй части передаваемой строки может быть использовано всё, что написано на языке самого кристала.
Если нужна более подробная информация - пиши лично, обязательно расскажу, так как в свое время сам с этим много маялся.
Вопрос:
Можно ли работать в VB с БД MySql так же как с Access. Если да то что для этого надо?
Ответ:
Автор ответа: Sergey Y. Tkachev
Однозначно можно. Через ODBC.
Для этого понадобится библиотечка MyODBC. Найти её можно на www.mysql.com Там есть инструкция по установке и использованию. Всё что потребуется - это создать источник и использовать его как и любой другой. Под ADO проблем у меня не возникало.
Если тебе хочется иметь какую-то среду для разработки табличек и выполнения запросов, то на том же сайте можно найти GUI для MySQL. Называется она MyControlCenter (вроде бы так). Естественно, это всё бесплатно. Мне больше нравится другая программка: http://www.anse.de/mysqlfront/
У неё и функций побольше, и удобство повыше.
Вопрос:
Как мне создавать/менять/удалять пользователей, групп и т.д. используя ВБ 6.0 на:
а) В Вин2к/НТ компьютере, в рабочей группе (без домена)
б) В Вин2л/НТ домене.
Любые ссылки на е-доки, советы
Ответ:
Автор ответа: Anvar Hudshamkulov
Ispoljsuj ADSI (Active Directory Service Interface)
Dlja WinNT: installirue6j ADSI, dlja 4ego ide6j na
www.microsoft.com/ntserver/nts/downloads/other/adsi25/default.asp
Dlja Win2000: ADSI u#e vstroen.
Help: www.microsoft.com/ntserver/downloads/bin/nts/adsi25.chm
Primeri po ispoljsovaniju ADSI na VB:
www.williamspublishing.com
Ishi tam ishodniki primerov dlja knigi
Szenarii ADSI dlja sistemnogo administrirovanija Windows NT/2000 Avtor Thomas Eck
Krome togo, MSDN, rasumeetsja.
Вопрос:
У меня вопрос к янатокам в области API-функций. Есть такая строка:
call MCIExecute("play c:\fun\music\age 1.wav")
Описание проблемы - судя по всему, функция не хочет принимать имя файла, в котором содержатся пробелы. Вопрос - можно ли эту функцию "научить" понимать пробелы в имени файла и если да, то каким методом?
Ответ:
Автор ответа: Андрей Щёкин
Скорее всего достаточно заключить имя файла и путь в кавычки:
MCIExecute "play ""c:\fun\music\age 1.wav"""
Вопрос:
У меня вопрос к янатокам в области API-функций. Есть такая строка:
call MCIExecute("play c:\fun\music\age 1.wav")
Описание проблемы - судя по всему, функция не хочет принимать имя файла, в котором содержатся пробелы. Вопрос - можно ли эту функцию "научить" понимать пробелы в имени файла и если да, то каким методом?
Ответ:
Автор ответа: P@Ssword
Попробуй написать call MCIExecute("play ""c:\fun\music\age 1.wav""")
Вопрос:
У меня вопрос к янатокам в области API-функций. Есть такая строка:
call MCIExecute("play c:\fun\music\age 1.wav")
Описание проблемы - судя по всему, функция не хочет принимать имя файла, в котором содержатся пробелы. Вопрос - можно ли эту функцию "научить" понимать пробелы в имени файла и если да, то каким методом?
Ответ:
Автор ответа: Igoryk
К сожалению нет, потому что в данной функции " " - это разделитель команд, но можно импользовать другой код, который понимает файлы с пробелами:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load() 'Код можешь перенести в любое другое событие
Call PlaySound("c:\fun\music\age 1.wav", 0, 0)
End Sub
Вопрос:
Подскажите плз, как можно программно настроить реестр вин 98. В частности мне надо исправить значения переменных в разделе
HKEY_USERS\.DEFAULT\AppEvents\EventLabels
Ответ:
Автор ответа: SHatrykin Ivan
Есть замечательная статья Михаила Эскина на эту тему. Там все написано. Прочитать ее можно здесь:
"Грамотно работаем с реестром"
[www.vbnet.ru/articles/showarticle.asp?id=24]
Вопрос:
Здратвуйте в чём причина когда я перехожу в "коде" на русский то печатает непонятными символами раньше всё было нармально а сёйчас стало так может какие нибудь настройки сбились или что?
Ответ:
Автор ответа: Иван
В настройках VB измени шрифт и всё нормально пойдёт
Меню "Tools"("Инструменты") пункт "Options"("Опции"), вкладка "Editor Format"(Формат Редактора).
Вопрос:
Здратвуйте в чём причина когда я перехожу в "коде" на русский то печатает непонятными символами раньше всё было нармально а сёйчас стало так может какие нибудь настройки сбились или что?
Ответ:
Автор ответа: SHatrykin Ivan
Действительно, сбились настройки. Точнее говоря у Вас проблема со шрифтом Couriner New, именно его использует редактор по-умолчанию. Сделайте так: зайдите в меню Tools-Options, на вкладке Editor Format выберите другой шрифт для редактора. Иногда также бывает, что окна диалогов редактора "ломаются" - точнее, шрифт в них становиться непонятно большого размера и некоторые опции не удается прочитать. Это дело можно пофиксить заменой шрифта Tahoma в Windows на такой же шрифт из дистрибутива VB.
Вопрос:
Здратвуйте в чём причина когда я перехожу в "коде" на русский то печатает непонятными символами раньше всё было нармально а сёйчас стало так может какие нибудь настройки сбились или что?
Ответ:
Автор ответа: Igoryk
Чтобы это все исправить зайди в Tools>>Options. И выбери вкладку Editor Format. Теперь выбери Normal Text (если надо выберешь и другой), и измени значение шрифта, чтобы его название заканчивалось на Cyr.
Вопрос:
Здратвуйте в чём причина когда я перехожу в "коде" на русский то печатает непонятными символами раньше всё было нармально а сёйчас стало так может какие нибудь настройки сбились или что?
Ответ:
Автор ответа: Алексей
Попробуй изменить шрифт. Это можно сделать через Tools/Options/Editor Format
Выбери например Courier New CYR
Вопрос:
Здратвуйте в чём причина когда я перехожу в "коде" на русский то печатает непонятными символами раньше всё было нармально а сёйчас стало так может какие нибудь настройки сбились или что?
Ответ:
Автор ответа: P@Ssword
Tools => Options... => Editor Format
Font: Courier New CYR
Вопрос:
Здратвуйте в чём причина когда я перехожу в "коде" на русский то печатает непонятными символами раньше всё было нармально а сёйчас стало так может какие нибудь настройки сбились или что?
Ответ:
Автор ответа: Артем Меняйленко
Tools/Options/Editor format сменить Courier New на Courier New Cyr
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.