Новый выпуск!
Читайте!

Citycat by Email

   Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
   Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

наверх

---

Новости сайта VBNet

Дата: 07.02.2004 08:07 | Раздел: Статьи по VB | Автор: Шатохина Н.А.

Спецификация С# версии 2.0. Анонимные методы - Спецификация C#. Глава 21: Анонимные методы. В этой главе детально описаны анонимные методы.

Дата: 06.02.2004 15:16 | Раздел: Статьи по VB | Автор: Шатохина Н.А.

Спецификация С# версии 2.0. Введение в C# 2.0 - C# 2.0 представляет несколько расширений языка, самые важные из которых — Шаблоны (Generics), Анонимные методы (Anonymous Methods), Итераторы (Iterators) и Неполные типы (Partial Types).

Дата: 05.02.2004 11:20 | Раздел: Примеры кода | Автор: Игорь

Mustdie-Explorer - От автора: Web-Browser + Favorites + History. От User Unknown: Я бы назвал его все-таки "Mustdie+Explorer", т.к. этот браузер написан на основе IE-компонента WebBrowser.:) Удобен, быстр, глюков не замечено. порст в обращении. Если бы не перегруженность сплеш-окнами и прочими украшательствами - грузился бы на порядок быстрее обычного ишака. Замечательный, законченый базовый браузер с исходниками. Качать, качать и ещё раз качать.

Дата: 04.02.2004 14:58 | Раздел: Примеры кода | Автор: Judge

Бегущая строка - Простой пример организации бегущей строки

Дата: 03.02.2004 16:53 | Раздел: Статьи по VB | Автор: Шатохина Н.А.

Будущие возможности языка программирования C# - Корпорация Microsoft разрабатывает следующую основную версию языка программирования C#. В этой статье приведена информация, касающаяся четырех новых ключевых возможностей: шаблоны, итераторы, анонимные методы и неполные (partial) типы.

Дата: 03.02.2004 11:48 | Раздел: Примеры кода | Автор: Папченко Антон

Sprint Writer - От автора: Данный пример очень хорошо описывает такие моменты, как: Создание иконки в трее с "выползающим" меню при щелчке на ней, создание и редактирование базы данных, работа с элементом ProgressBar, работа с MDI-интерфейсом. От User Unknown: неплохой пример для начинающих "блокнотописателей". Жаль только что: в записках не работает контекстное меню и программа не запрашивает сохранение открытых записок при выходе.

Дата: 03.02.2004 11:32 | Раздел: Примеры кода | Автор: Millenium

Magic Button - От автора: Кнопка с тремя событиями: Up Picture, Over Picture, Down Picture и Disabled Picture. От User Unknown: простенькая кнопочка поставляемая в виде ctl. Для тех, кто устал рисовать и изобретать велосипед.

Дата: 03.02.2004 11:28 | Раздел: Примеры кода | Автор: CyRax

API Rich Pad 2 - От автора: Пример создания и работы с MS Rich Edit 2 (riched20.dll) на API для VB6. От User Unknown: Для тех, кто следит за историей API Rich Pad не стоит представлять данный пример, всем остальным настоятельно рекомендую ознакомиться с ним. Минимум бейсика - максимум API.

Дата: 03.02.2004 11:20 | Раздел: Примеры кода | Автор: Alex

База Компьютеров - От автора:Готовая программа для учета компьютерной техники организации. Хранение данных в INI файлах. Примеры по работе с INI файлами, поиск файлов, работа с Word, Excell, архивирование, разархивирование.... От User Unknown: Действительно доработанная программа. Подходит как для новичков, так и для опытных разработчиков баз данных. Удачно реализованы методы экспорта отчетов. С другой стороны код может показаться немного перегруженым из-за "украшательств".

Последние 20 тем форума на VBNet.Ru:

14:30 / 10 фев.  Нужен проект на VB.NET | Хитов: 0 |  Ответов: 0
13:30 / 10 фев.  Анимация окна в трей (нужна помощь) | Хитов: 2 |  Ответов: 0
12:45 / 10 фев.  Можно ли в VB организовать полноценный MatchEntry | Хитов: 7 |  Ответов: 1
12:23 / 10 фев.  .RAR - разорхивировать | Хитов: 5 |  Ответов: 0
11:40 / 10 фев.  Симплекс метод | Хитов: 10 |  Ответов: 2
10:44 / 10 фев.  Список папок | Хитов: 15 |  Ответов: 2
10:26 / 10 фев.  Реестр: запись и чтение | Хитов: 17 |  Ответов: 1
10:20 / 10 фев.  Сайт в интернете | Хитов: 5 |  Ответов: 0
10:07 / 10 фев.  Как вытащить версию из свойств проекта? | Хитов: 14 |  Ответов: 2
09:52 / 10 фев.  Слово EXCEPT в SQL не работает? | Хитов: 7 |  Ответов: 0
09:11 / 10 фев.  из VB 6 запустить прогу | Хитов: 17 |  Ответов: 2
02:13 / 10 фев.  Свой VB-Debuger | Хитов: 14 |  Ответов: 0
00:56 / 10 фев.  Отправка примеров, уведомление кодера... | Хитов: 15 |  Ответов: 2
21:45 / 9 фев.  вопрос к размышлению | Хитов: 17 |  Ответов: 0
21:44 / 9 фев.  И СНОВА РЕЕСТР, НО!!! | Хитов: 35 |  Ответов: 4
21:44 / 9 фев.  И СНОВА РЕЕСТР, НО!!! | Хитов: 5 |  Ответов: 0
21:17 / 9 фев.  Управление голосом | Хитов: 31 |  Ответов: 3
16:40 / 9 фев.  PictureBox | Хитов: 20 |  Ответов: 2
15:40 / 9 фев.  Access + Security | Хитов: 31 |  Ответов: 5
15:11 / 9 фев.  Как работать с Дизайнером? | Хитов: 22 |  Ответов: 2


Последние поступления в Библиотеку кодов:



наверх

---

Новости сайта MSDN

наверх

---

Новости сайта GotdotNet

Новые статьи:

• 09.02 - Microsoft Excel 2003 Beta 2 Preview
• 06.02 - Unlocking Information — решение на основе XML-технологий для Microsoft Office 2003
• 05.02 - Создание собственной исследовательской библиотеки в Office 2003 с помощью Google Web Service API
• 04.02 - Обзор Microsoft Office Word 2003 Beta 2 (часть 1 из 2)
• 03.02 - Импорт XML-карт, XML-списков и источников данных динамических диаграмм в Excel 2003

наверх

---

Новости сайта dotSite

Новые статьи:

Новые примеры:

наверх

---

Один момент из жизни форума: Слово EXCEPT в SQL не работает?

Адерес темы: http://vbnet.ru/forum/show.asp?id=35767

Вопрос:
Автор вопроса: Makc2K

   Читаю описание SQL, там написанно есть три оператора определяющие отношения между запросами. Первый UNION - объединяет два подзапроса с одинаковой структурой, это работает:

SELECT * FROM Authors WHERE AU_ID BETWEEN 10 AND 15
UNION
SELECT * FROM Authors WHERE AU_ID=21

Второй INTERSECT - выбирает только одинаковые строки из двух запросов. Не работает. И третий EXCEPT выбирает строки первого запроса, которые отсутствуют во втором. Тоже не работает. Правда access не SQL , но я буду работать через ADO , а тестирую запросы в access , кроме того база то MDB. Вопрос: эти выражения действительно не работают или у меня не верный синтаксис?


Ответы:

Автор: boevik
   Дело в том, что функции INTERSECT и EXCEPT предназначены для работы со строками, но не для использования внутри SELECT. Например:

Intersect({[1994], [1995], [1996]}, {[1995], [1996], [1997]}) Except({Canada, [British Columbia], Mexico, [British Columbia], USA, Washington}, {Canada, Mexico, California}, ALL) Для селектов используется UNION и JOIN select a.f1, a.f2 from table1 a join table2 b on a.f3=b.f3



наверх

---

Вопрос/Ответ

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

Вопросы:

---

Автор вопроса: Дмитрий aka "Grunger"

Ответ ожидается по этому адресу

   Был у меня под Win 9x\ME классный "создаватель" :) Res-файлов, для васика прямо лучше не найти... Но теперь поставил NT, и этот редактор не хочет работать. Подскажите, плиз, нормальный редактор для W2K Server (или XP Server)...

---

Автор вопроса: Юра

Ответ ожидается по этому адресу

   Как определить длину и ширину экрана, в котором посредством VB проигрывается видеофайл?

---

Автор вопроса: Александр

Ответ ожидается по этому адресу

   А где можно взять описание по Webbrowser, т.е. что пишется после:
WebBrowser.Document. ...

---

Автор вопроса: Александр

Ответ ожидается по этому адресу

   Как в RichTextBox управлять VScrollBar-ом, т.е. узнать его положение и потом вернуть (после перезагрузки текста) его на место (вместе с скролингом текста).

---

Автор вопроса: mikl

Ответ ожидается по этому адресу

   Как организовать поиск в базе данных Access с помощью обекта Data? Пробовал с помощью Seek "=", но для него нужно вводить полное значение ячейки, а мне нужно по первым нескильким буквам. А потом построить список из значений ячеек, удолетворяющих условию.

---

Автор вопроса: Максим

Ответ ожидается по этому адресу

   Как сохранить файл поверх другого файла?

---

Автор вопроса: Олег

Ответ ожидается по этому адресу

   Как получить список папок, находящихся в определенной папке?

---

Автор вопроса: Zhan

Ответ ожидается по этому адресу

   Каким образом можно организовать связь родительское-дочернее окно в VB5 как в стандартных многооконных приложениях?

---

Автор вопроса: Zhan

Ответ ожидается по этому адресу

   Каким образом на форму VB5 установить контрол, связанный с базой Access, на которой стоит пароль?

---

Ответы:

---

Вопрос:

   Скажите как прочитать файл в переменную за один раз (VB 6) без использование FSO.

Ответ:

Автор ответа: -=CRAZYDIMA=-

Sub ReadFileInArray()
dim bMas() as Byte
iHANDLE = FreeFile
Open "c:\temp\temp.tmp" For Binary As #iHANDLE
         iLen = LOF(iHANDLE)
         ReDim bMas(iLen)
         Get #iHANDLE, , bMas()
Close #iHANDLE
End Sub

---

Ответ:

Автор ответа: Anakonda

Вот модуль, который я написал давным-давно, и до сих пор пользуюсь. Нельзя сказать, что что-то сильно прикольное, но, зато удобно.
  
'Прочитать данные:
Private Sub Command1_Click()
Text1.Text = FOp("C:\1.txt")
End Sub
  
'Записать данные:
Private Sub Command2_Click()
FOp("C:\1.txt") = Text1.Text
End Sub
////////////////////////////////////////////////////////////
Код модуля:
  
'Автор Anakonda
'Сайт: http://anakonda.nm.ru
'E-mail: anakonda@nm.ru
  
Public Property Get FOp(filename As String) As Variant
On Error Resume Next
Dim nfree As Integer
Dim nfilelenght As Long
Dim strfilecontent As String
strfilecontent = "Глюк!"
  
  
  
nfree = FreeFile
Open filename For Input As nfree
nfilelenght = FileLen(filename)
strfilecontent = Input(nfilelenght, #nfree)
Close nfree
  
' А это можно вобще убрать, эта фишка убирает символы перевода строки из конца файла, они мне почему-то тогда мешались :)
Dim ka As Long
ka = Asc(Right(strfilecontent, 1))
Do
If strfilecontent = "" Then
Exit Do
End If
If ka <> 10 And ka <> 13 Then
Exit Do
Else
  
strfilecontent = Left(strfilecontent, Len(strfilecontent) - 1)
ka = Asc(Right(strfilecontent, 1))
  

End If
  
Loop
  
FOp = strfilecontent
End Property
  
Public Property Let FOp(filename As String, ByVal vNewValue As Variant)
  

On Error Resume Next
Dim nfree As Integer
Dim nfilelenght As Long
Dim strfilecontent As String
  

nfree = FreeFile
Open filename For Output As nfree
strfilecontent = vNewValue
Print #nfree, strfilecontent
Close nfree
End Property

---

Вопрос:

   Функция RND при каждом запуске генерирует одну и туже последовательность. Как сделать, что бы она генерировалась по-разному?

Ответ:

Автор ответа: LeZZvie

'Использование RND. Выводит случайное число от 0 до 10
  
Sub Sluchay()
Randomize
MyRand=Int((10 - 0+ 1) * Rnd + 0)
MsgBox MyRand
End Sub

---

Вопрос:

   Как сохранить файл, который является ресурсом в моей программе, на диск?

Ответ:

Автор ответа: -=CRAZYDIMA=-

Если ты пишешь на ВБ, тогда используй VB Resource Editor, добавь туда файл пользовательского типа "Add custom resource...", затем вот такая процедура для извлечения:

Sub savefile()
Dim iHANDLE As Integer
Dim bMas() As Byte
iHANDLE = FreeFile
bMas() = LoadResData(101, "CUSTOM")
Open "c:\temp\New.file" For Binary As #iHANDLE
         Put #iHANDLE, , bMas()
Close #iHANDLE

End Sub

---

Вопрос:

   Возможно, ли в текстовом поле предлагать вариант написания, как это делает VB?

Ответ:

Автор ответа: LeZZvie

Просто напиши в процедуре Change для TextBox, чтобы содержимое поля проверялось на наличие похожего слова.

---

Вопрос:

   Как определить путь к папкам Windows, System, System32, Fonts?

Ответ:

Автор ответа: -=CRAZYDIMA=-

Посмотри функцию Environ(), в качестве параметров поюзай разные числа, она возвращает строку.

---

Ответ:

Автор ответа: Anakonda

Папку Windows так:

Text1.Text = Environ$("Windir")
  
Так Temp:

Text1.Text = Environ$("temp")
  
А System так: Environ$("Windir") +"\system"
  
System32 так: Environ$("Windir") +"\system32"
  
Fonts так: Environ$("Windir") +"\fonts"
  
Вот так вот, даже без АПИ.

---

Вопрос:

   Помогите создать программу, которая сможет регистрировать *.ocx и *.dll файлы. Как провести поиск на винте незарегистрированных *.ocx и *.dll файлов и как можно снять регистрацию с выбранного файла. Надеюсь на помощь…

Ответ:

Автор ответа: LeZZvie

Можно просто проверить через реестр, ну или на худой конец:
  
Shell ("regsvr32 MyOcx.ocx")

---

Вопрос:

   Каким образом можно осуществить поиск по записям данных, по определённому признаку?

Ответ:

Автор ответа: C...R...a...S...H

Если ты работаешь с базой данных, то сделай SQL запрос и укажи критерии поиска.
Если ты работаешь со своей рукотворной базой данных, то тебе, придется пройтись по всем записям и проверить, удовлетворяют они условию. (Если я правильно понял твой вопрос).

---

Вопрос:

   Как сохранить в файл из коллекции или обьекта, чтобы можно было потом обратно загружать в обьект или в коллекцию?

Ответ:

Автор ответа: Артем Кривокрисенко

Если для .NET, то самый простой способ - сериализация/десериализация.

---

Ответ:

Автор ответа: C...R...a...S...H

Создаешь класс, где объявляешь переменные, в которых будешь хранить данные. Этот класс будет как бы структурой. Создаешь пользовательский тип который содержит такие же переменные. Для сохранения открываешь файл как binary и из класса переводишь данные в User-type и сохраняешь. Тоже самое для восстановления. (Вот такая блин сериализация)

---

Вопрос:

   Можно ли в VB6 / VB .net работать с базой MySQL?

Ответ:

Автор ответа: Sergey Y. Tkachev

Можно.
Для этого нужно установить драйвера ODBC
Думаю, тебе подойдет MyODBC-3.51.03
Можно скачать с их сайта http://www.mysql.com/

Я работал через ADO. Проблем, конечно, много, это тебе не MSSQL. Но работать очень даже можно :-))

---

Ответ:

Автор ответа: Alexander

OLE DB Provider for mySQL
oConn.Open "Provider=MySQLProv;" & _
            "Data Source=mySQLDB;" & _
            "User Id=myUsername;" & _
            "Password=myPassword"
For more information, see: API - OLE DB (http://www.mysql.com/doc/en/index.html) and Snippet (http://www.coveryourasp.com/Snippet.asp?snip=16)

---

Вопрос:

   На форме 2 елемента Line: Line1 и Line2.
Надо узнать точку их пересечения.

Ответ:

Автор ответа: ZoyberG

Сначала находишь уравнения прямых по формуле:
(x-x1)/(x2-x1)=(y-y1)/(x2-x1)
, где (х1;у1) и (х2;у2) - координаты точек прямой.
Потом, когда ты это всё найдёшь, точку пересечения ищешь следующим образом: записываешь уравнения прямых в систему и находиш "х" и "у". Без математики тут не как.

---

Вопрос:

   Пишу на VB6, т.к. не разобрался как там создавать (а именно подключать) отчёты, использую Crystal Reports из VB5.
Необходимо выводить на печать одну запись БД на один лист (запись имеет порядка 50 полей). Может существует более удобный инструмент для реализации этого? (не огромных розмеров - чтобы можно было скачать). И может кто располагает описанием мотодов и свойств этого Crystal Reports из VB5.

Ответ:

Автор ответа: Sergey Y. Tkachev

На инсталляционном диске студии есть хелп-файл к нему. Вот там и посмотри.

Если допустить, что CR - это и есть контрол, то код будет выглядеть приблизительно так

With CR
         .LogOnServer
         .ReportFileName = App.Path & "\Daily.rpt"
        '.ParameterFields(0) = "ReportNumber;" & ReportNumber & ";TRUE"
         .SelectionFormula = "Date({Calls.Call_Begin}) = " & strDateStart & ""
         .PrintFileType = crptRTF
         .EMailToList = AddressTo
         .EMailSubject = Subject
         .EMailMessage = Message
         .Destination = crptMapi
         .Action = 1
     End With

---

Вопрос:

   Как написать на VB заставку (скринсейвер)?

Ответ:

Автор ответа: Артем Кривокрисенко

На www.vbnet.ru была статья по этому поводу.

---

Ответ:

Автор ответа: C...R...a...S...H

Заставка - это просто EXE файл, который делает определенные действия при получении каких-то там ключей.

---

Ответ:

Автор ответа: Роман

Вставляешь код в загрузчик проги:

Dim sCmdLine As String
sCmdLine = Trim$(UCase$(Command$))
     
'Запускаем заставку в обычном режиме
If sCmdLine = "/s" Or sCmdLine = "" Then
    Exit Sub
End If
     
'Запускаем заставку в режиме конфигурации
If sCmdLine = "/c" Then
    MsgBox "Конфигурации не требуется!"
    End
End If
     
'Запускаем заставку в режиме просмотра
If Left$(sCmdLine, 2) = "/p" Then
    'Параметр можно получить с помощью оператора
    'Val(Mid$(sCdmLine,3))
    End
End If

Делаешь ЕХЕ-шник и переименовываешь его из ЕХЕ в SCR.

---

---

Можете заполнить эту форму, либо отослать вопрос СЮДА

Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.

Текст сообщения:

Ваше имя
E-mail для ответа

наверх