Архив рассылки сайта VBNet

Aslof рекомендует

Ищешь фильм?
http://subscribe.ru/catalog/rest.cinema.filmforyou
Сайт рассылки - http://aslof.balzer.ru/

Citycat by Email

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

наверх

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

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

наверх

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

15.12.2003 - Первая встреча GOTDOTNET USER GROUP в Санкт-Петербурге!
17 декабря, учебный центр компании Эврика. В программе - новости с Professional Developers Conference 2003 - ближайшие и отдаленные перспективы для разработки на .NET технологиях.
11.12.2003 - GOTDOTNET USER GROUPS
Мы рады пригласить вас на второе собрание пользовательской группы в Москве. Судя по предыдущему опыту – будет интересно!
09.12.2003 - Новости с Professional Developers Conference (PDC) 2003. Развитие технологий .NET.
Внимание! 10 декабря в г. Алма Ата ( Казахстан) состоится презентация "Новости с Professional Developers Conference (PDC) 2003.

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

наверх

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

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

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

наверх

Один момент из жизни форума: Вопрос по дате

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

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

   Мне нужно сделать выборку за последнюю неделю.

...
Dim dat As String
dat = Date - 7
...
rs.Source = "SELECT Nname, City, Zakaz.Snum, Odate FROM Zakaz, Porydok WHERE Zakaz.Cnum=Porydok.Cnum AND Porydok.Odate>" & dat

   Выдает синтаксическую ошибку в выражении запроса. Подскажите в чём беда.

Ответы:

Автор: boevik
    Какая база? Если Access, то дата берется в решетки (#) и в формате mm/dd/yyyy:

rs.Source = "SELECT Nname, City, Zakaz.Snum, Odate FROM Zakaz, Porydok WHERE Zakaz.Cnum=Porydok.Cnum AND Porydok.Odate>#" & Format(dat, "mm/dd/yyyy") & "#"

Автор: Legik
    А можно применить CDate (только для MS Access):

... AND Porydok.Odate>CDate(' " & dat & " ')"

наверх

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

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

Вопросы:

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

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

Купил резак, хочу сделать свой диск с инфой и автораном. Последний на VB. VB недавно начал учить, но есть опыт работы с Паскалем. Расскажи вкратце про это дело, и если знаешь дай пару ссылок.

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

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

Как программно сохранить картинку (скажем, ия PictureBox) в формате "gif" или "jpeg"?

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

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

На а удаленном компьютере в сети в папке лежит файл, который периодически необходимо копировать. Нет проблем, если ресурс расшарен:

FileCopy "\\komp\folder\file.txt", App.Path & "\" & "file.txt"

Вопрос! Как програмно получить доступ к файлу, если папка яащищена паролем - "для чтения" ?

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

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

Как в тексте найти двойные кавычки (") ?

Ответы:

Вопрос:

   Программа на VB обрабатывает множество однотипных текстовых файлов и записывает данные в БД "Access".В общем программа работает нормально, но иногда, особенно когда файлов много, выпадает ошибка:
"Couldn'n update: currently locked by user 'Admin' on machine 'NIK'".
   Как я понял, VB не может добавить запись в таблицу, но "победить" проблему мне так и не удалось.
   Если кто-нибудь сталкивался c подобной ошибкой, пожалуйста помогите.

Ответ:

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

Обрати внимание на такой прибамбас: View -> Call Stack. Может, там собака зарыта?

Ответ:

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

Рекордсеты закрывать пробовал?

Вопрос:

   Visual Basic 6. Пожалуйста, подскажите как создать двумерный массив (M x N) и заполнить его нулями и единицами в шахматном порядке.

Ответ:

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

Dim a(1 To 100, 1 To 51) As Byte
For i& = 1 To 100
     For j& = 1 To 51
         a(i, j) = (i + j) And 1 'a(1, 1)=0
         'a(i, j) = (i + j + 1) And 1 'a(1, 1)=1
     Next j
Next i

Ответ:

Автор ответа: Пащенко А.

Dim i As Integer, j As Integer
Dim m As Integer, n As Integer
Dim Arr() As Byte
m = 5
n = 7
ReDim Arr(1 To m, 1 To n) As Byte
For i = 1 To m
     For j = 1 To n
         If Int((i + j) / 2) = (i + j) / 2 Then
             Arr(i, j) = 1
         Else
             Arr(i, j) = 0
         End If
     Next j
Next i

Ответ:

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

     Dim i As Integer 'Счетчики
     Dim j As Integer
     Dim ni As Integer 'Размер массива
     Dim nj As Integer
     Dim a() As Integer 'Массиив
     Dim n As Integer
     Dim nn As Integer
     ni = 10
     nj = 20
     ReDim a(0 To ni, 0 To nj) 'Задаем двумерный массив
     For i = 0 To ni
         nn = Abs(nn - 1)
         n = nn
         Debug.Print "i="; i
         For j = 0 To nj
             n = Abs(n - 1)
             a(i, j) = n
             Debug.Print a(i, j); "|";
         Next j
         Debug.Print
     Next i

Вопрос:

Где можно скачать и установить Помощь MSDN для VB6?

Ответ:

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

Это 4 компакта. Качать долго придется, лучше купи на рынке.

Вопрос:

Просьба сообщить, как правильно открыть созданный и сохраненный проект Visual Basic 6.0 для дальнейшего редактирования? При открытии файла Проект.vbg не появляются ни форма проекта, ни модуль. Однако кнопкой Run проект запускается. Почему в проекте отсутствует файл с расширением *.bas?

Ответ:

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

Окно Project видимо?
Там все отображается.

Вопрос:

   Дана задача: Зарплата инженера 5000р., бухгалтера 5400р., техника 3200р. Найти сумму выплачиваемой зарплаты, если на предприятии работает 2 инженера, 3 бухгалтера и 13 техников.
Задачу я решил следующим способом. Программа работает. Прошу сообщить правильно ли я ее решил?
Приводу текст модуля программы:

'Устанавливаем начальные значения при открытии программы:
Private Sub Form_Load()
      Me.Текст1.Text = 0 'Задаем нулевые значения исходным данным
      Me.Текст2.Text = 0 'Задаем нулевые значения исходным данным
      Me.Текст3.Text = 0 'Задаем нулевые значения исходным данным
      Me.Текст4.Text = 0 'Задаем нулевые значения исходным данным
      Me.Текст5.Text = 0 'Задаем нулевые значения исходным данным
      Me.Текст6.Text = 0 'Задаем нулевые значения исходным данным
      Me.Текст7.Text = 0 'Задаем нулевые значения исходным данным
      Me.Рамка2.Visible = False 'Скрываем группу Ответа
End Sub

'Кнопка Решить задачу:
Private Sub Комманда1_Click()
Me.Рамка2.Visible = True 'Показываем группу Ответа
'Производим вычисления по расчету суммы зарплаты:
Me.Текст7.Text = Me.Текст1.Text * Me.Текст4.Text + Me.Текст2.Text * Me.Текст5.Text + Me.Текст3.Text * Me.Текст6.Text
End Sub

'Кнопка Закончить:
Private Sub Комманда2_Click()
      Unload Me 'Закрываем программу
End Sub

'Кнопка Заполнить:
Private Sub Комманда3_Click()
      Me.Текст1.Text = 5000 'Устанавливаем значения согласно условию задачи
      Me.Текст2.Text = 5400 'Устанавливаем значения согласно условию задачи
      Me.Текст3.Text = 3200 'Устанавливаем значения согласно условию задачи
      Me.Текст4.Text = 2 'Устанавливаем значения согласно условию задачи
      Me.Текст5.Text = 3 'Устанавливаем значения согласно условию задачи
      Me.Текст6.Text = 13 'Устанавливаем значения согласно условию задачи
      Me.Текст7.Text = 0 'Устанавливаем значения согласно условию задачи
      Me.Рамка2.Visible = False 'Скрываем группу Ответа
End Sub

'Кнопка Очистить:
Private Sub Комманда4_Click()
      Me.Рамка2.Visible = False 'Скрываем группу Ответа
      Me.Текст1.Text = 0 'Очищаем значения исходных данных
      Me.Текст2.Text = 0 'Очищаем значения исходных данных
      Me.Текст3.Text = 0 'Очищаем значения исходных данных
      Me.Текст4.Text = 0 'Очищаем значения исходных данных
      Me.Текст5.Text = 0 'Очищаем значения исходных данных
      Me.Текст6.Text = 0 'Очищаем значения исходных данных
      Me.Текст7.Text = 0 'Очищаем значения исходных данных
End Sub

Ответ:

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

В общем-то дело наживное.
Главное моё замечание относится к фрагменту:

'Производим вычисления по расчету суммы зарплаты:
Me.Текст7.Text = Me.Текст1.Text * Me.Текст4.Text + Me.Текст2.Text *
Me.Текст5.Text + Me.Текст3.Text * Me.Текст6.Text

К сожалению, здесь выступает двойственность знака "+", т.е. однажы может получится "5" + "7" = "57", т.к. знак "+" сработает как знак конкатенации строк. Будьте осторожны в приложении этого знака к строковым значениям!

Вопрос:

Как написать прогу ( типа смотрелки фоток), чтобы при открытии каждой новой фотки размер формы ( ну в общем всей проги), становился равен размеру фотки. Я пробовал всякие autosize и windowState но что-то не получается.

Ответ:

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

x& = Me.Width - Me.ScaleWidth
y& = Me.Height - Me.ScaleHeight
'x и y необходимы для учета "неклиентской" части окна (рамка, заголовок)
'Хотя, более правильно было бы сделать это через GetWindowRect и GetClientRect
Picture1.AutoSize = True
Picture1.BorderStyle = 0
Me.Width = Picture1.Width + x
Me.Height = Picture1.Height + y

Вопрос:

   Я задавал этот вопрос, но видать не досказал. Скажите пожалуйста, как загрузить рисунок (из Picture Box-a) в память (не Винчестер), и наоборот из памяти загрузить рисунок в Picture Box. В память для того что бы проводить манимуляции над рисунком не на экране а в памяти (например перевернуть горизонтально).

Ответ:

Автор ответа: Максим Турков

В модуль:

Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As
Long
Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long,
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As
Long
Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal
hObject As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As
Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long,
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal
dwRop As Long) As Long
Dim MemHdc() As Long
Dim BitMapHdc() As Long
Dim TrashbmpHdc() As Long
Dim NumOfDcs As Integer

Type BitMap
     hdc As Long
     left As Integer
     top As Integer
     Width As Integer
     Height As Integer

End Type
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCINVERT = &H660046

Function CreateMemHdc(ScreenHdc As Long, Width As Integer, Height As
Integer) As Long

ReDim Preserve MemHdc(NumOfDcs)
ReDim Preserve BitMapHdc(NumOfDcs)
ReDim Preserve TrashbmpHdc(NumOfDcs)

MemHdc(NumOfDcs) = CreateCompatibleDC(ScreenHdc)
     If MemHdc(NumOfDcs) Then
         BitMapHdc(NumOfDcs) = CreateCompatibleBitmap(ScreenHdc, Width,
Height)
         If BitMapHdc(NumOfDcs) Then
             TrashbmpHdc(NumOfDcs) = SelectObject(MemHdc(NumOfDcs),
BitMapHdc(NumOfDcs))
             CreateMemHdc = MemHdc(NumOfDcs)
         End If
     End If
NumOfDcs = NumOfDcs + 1
End Function

Sub LoadBmpToHdc(MHdc As Long, FileN As String)
Dim OrgBmp As Long
OrgBmp = SelectObject(MHdc, LoadPicture(FileN))
If OrgBmp Then
     DeleteObject (OrgBmp)
End If
End Sub

Sub DestroyHdcs()
Dim i As Integer
For i = 0 To NumOfDcs - 1
     BitMapHdc(i) = SelectObject(MemHdc(i), TrashbmpHdc(i))
     DeleteObject (BitMapHdc(i))
     DeleteDC (MemHdc(i))
Next i

End Sub

Использовать:

Dim Back as bitmap
--
Back.hdc = CreateMemHdc(me.hdc, 678, 509)
Call LoadBmpToHdc(Back.hdc, yourfile)

И делай с рисунком все, что хочешь, через back.hdc.
Чтобы загрузить из пикчербокса, измени процедуру LoadBmpToHdc.
А именно строки:

Sub LoadBmpToHdc(MHdc As Long, FileN As picturebox)

И

OrgBmp = SelectObject(MHdc, FileN.hdc)

Вопрос:

   Что означает ошибка номер 91 "Object variable or With block variable not set"? Как можно её исправить?

Ответ:

Автор ответа: Roman Sergeev

Такая ошибка у меня возникала довольно часто. Не знаю по каким причинам она вылезает у тебя, но у меня она появлялась, когда я пытался обратиться к объекту, который не существует, точнее к его методам или свойствам. Например описываю объект:

   dim rs1 as ADODB.RecordSet
   set rs1=new ADODB.RecordSet
  ........ ' идет код
'а вот здесь я обращаюсь к нему
rs.source="select * from Table1" ' вот здесь ошибка и вылезет так как объекта rs не существует!

Может быть у тебя какая-то другая причина - не знаю.

Ответ:

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

2 варианта:
пример с рекордсетами

1) Dim rsVariableName As New ADODB.Recordset

2)Dim rsVariableName As ADODB.Recordset
Set rsVariableName = New ADODB.Recordset

Вопрос:

Есть отчет, сделанный в DataReport. VB6. Отчет на многих страницах. Как сделать, чтобы на каждой странице внизу или вверху печаталось : page 1 of 20 (порядковый номер страницы).

Ответ:

Автор ответа: Данила

Там есть такое поле специально для этой цели. Смотри внимательно.

Ответ:

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

Если нужно только номер стр, то, в секции репорта Page Footer ставишь лейбл в котором пишеш %p
Если нужно показать всего стр. то в тойже секции ставишь лейбл с кепшоном %P

Вопрос:

Создал программку на VB 60. Но когда закрываю форму - процесс остается. Как сделать чтобы закрывалось полностью?

Ответ:

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

Оно?

Ответ:

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

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Успехов в учебе!

Ответ:

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

Ставь End в событие Unload или QueryUnload формы.

Вопрос:

   После упаковки готового проекта с помощью Package and Diployment Wizard VB6.0 получаю следующие файлы и папки:

C:\Мои документы\My VB6\Установка\*.*
SETUP.LST
setup.exe
Проект1.CAB
Проект1.TXT
SETUP.LST

    Плюс Папка "Support" с копиями файлов упаковки проекта и самого проекта.

При инсталяции упакованного проекта, после окна: Setup is checking for necessary disk space... (Установка проверяет необходимое дисковое пространство ...) выдается ошибка:

C:\WINDOWS\SETUP.LST
Invalid line in setup information file!
Section: Setup1 Files
@Project1.exe,$(AppPath),,$(Shared),12.12.03 10:53:58AM,16384,1.0.0.0

    Содержимое файла SETUP.LST:

[Bootstrap]
SetupTitle=Install
SetupText=Copying Files, please stand by.
CabFile=Project1.CAB
Spawn=Setup1.exe
Uninstal=st6unst.exe
TmpDir=msftqws.pdw
Cabs=1

[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,6.18.98 12:00:00 AM,102912,6.0.81.69
File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5.31.98 12:00:00 AM,22288,4.71.1460.1
File3=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,5.5.99 10:22:00 PM,17920,2.40.4275.1
File4=@ASYCFILT.DLL,$(WinSysPathSysFile),,,5.5.99 10:22:00 PM,147728,2.40.4275.1
File5=@Olepro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,6.8.00 5:00:00 PM,164112,5.0.4515.0
File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,9.19.01 2:47:08 PM,614672,2.40.4515.0
File7=@MSVBVM60.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,12.9.98 4:28:18 PM,1409024,6.0.82.68

[IconGroups]
Group0=Установка программы VB_6
PrivateGroup0=True
Parent0=$(Programs)
Group1=Установка программы VB6
PrivateGroup1=False
Parent1=$(Start Menu)

[Установка программы VB_6]
Icon1="Проект1.exe"
Title1=Установка программы VB_6
StartIn1=$(AppPath)

[Setup]
Title=Установка программы VB_6
DefaultDir=$(ProgramFiles)\Проект1
AppExe=Проект1.exe
AppToUninstall=Проект1.exe

[Setup1 Files]
File1=@Проект1.exe,$(AppPath),,$(Shared),12.12.03 9:43:30 AM,20480,1.0.0.0

    Прошу подсказать, где мною допускается ошибка.

Ответ:

Автор ответа: Данила

Забей на эту дурную примочку и либо пакуй зипом, либо скачай нормальную прогу для создания инсталов.

Ответ:

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

А ты попробуй подкоректировать Setup.lst, в датах вместо точек ставиш косую. В SP5 такой траблы уже нет.

Ответ:

Автор ответа: Максим Турков

Да не тобою. Это так называемая "досадная ошибка...". На многих сайтах есть объяснение как исправить. Там что-то с определением даты. Он ее не корректно определяет. Нужно изменить код самого Package and Diployment Wizard.

Вопрос:

Мне нужно чтобы моя программа воспроияводила явуки раяной частоты и длительности (аябука моряе) на системный динамик (явуковая карта) и одновременно шел сигнал на СОМ-порт. Как можно это реалияовать? В windows98 функция BEEP не работает.

Ответ:

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

Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Вопрос:

Подскажите пожалуйста как сделать так, что бы в text-bar ввести (например) 5+2+(5-3)/2, и при нажатие кнопки он вычислил.

Ответ:

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

Подключаешь к проекту ScriptControl(Project->Components->Microsoft Script Control), ставишь его на форму и для кнопки пишешь

Private Sub Command1_Click()
Dim Value AS Ннужный тебе числовой тип
On Error Goto Err
' Если выражение составлено неверно возникает состояние Error
Value=ScriptControl.Eval(Text1.Text)
Exit Sub
Err :
msgbox "Неверно составлено выражение " & Text1.Text
End Sub

Ответ:

Автор ответа: Данила

Скачай контрол для этой цели. По-моему, он есть даже на VBNet.

Ответ:

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

www.phoenixsoft.narod.ru

Статья "Скрипты в VB". Тока там сэмпл временно не скачать.. Скоро исправлю.. Если сильно надо - пиши на мэйл. Вышлю.

Вопрос:

Как загрузить список файлов из папки в листбокс?

Ответ:

Автор ответа: Данила

А чем тебя не устраивает FileListBox?

Ответ:

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

Используй FileListBox.
А если данные из него надо загнать все же в listbox, юзай следующий
код:

Private Sub Form_Load()
File1.Path = "c:\"
For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i
End Sub

Че-то в этом роде (я не в IDE писал, но должно работать)

Ответ:

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

А чем тебе плох FileListBox, в нем насколько я помню только путь укажи, и он сам все загрузит.

Ответ:

Автор ответа: Максим Турков

Есть filelistbox. Ставишь свойство path нужную папку и все.

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

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

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 222.

Выпуск подготовили:

Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 222.

Выпуск подготовили:

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 222.