VBNet
VBMania
Голосование: Нет тем! Доска почёта: Sergey Y. Tkachev Кононенко Роман Kirill Sergey Sapozhnikov Sobic Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый 58-ой выпуск.
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 23:38 / 18 май. ПОМОГИТЕ!!!! (про остановку работы кнопки) | Ответов: 0 18:11 / 18 май. Для JEDI и прочих озабоченных (о проге форума) | Ответов: 0 14:20 / 18 май. как прописать программу в автозагрузку реестра | Ответов: 1 14:00 / 18 май. CoolBar | Ответов: 0 13:49 / 18 май. PaintPicture... | Ответов: 1 13:41 / 18 май. Переносимость кода VBA в Excel... | Ответов: 1 13:39 / 18 май. Загрузка anigif-файлы | Ответов: 0 17:13 / 17 май. Просьба | Ответов: 1 14:50 / 17 май. Люди кто ???? | Ответов: 2 11:50 / 17 май. HELP Me with Active X! | Ответов: 2 10:14 / 17 май. HELP!!! MAPI :( | Ответов: 0 06:53 / 17 май. Compiler | Ответов: 2 18:01 / 16 май. net send | Ответов: 1 16:58 / 16 май. VB.NET | Ответов: 1 15:26 / 16 май. Блокировка сочетаний клавиш Ctrl+Alt+Del и Alt+Tab | Ответов: 2 14:45 / 16 май. Контрол в меню | Ответов: 1 13:44 / 16 май. Совет дня ! | Ответов: 1 12:26 / 16 май. Как определить ПРОГРАММНО CLSID ActiveX-а? | Ответов: 0 11:49 / 16 май. Объектная модель Excel... | Ответов: 2 08:41 / 16 май. FrontPage2002 | Ответов: 1 Последние поступления в Библиотеку кодов: Нету. наверх Новости сайта VBMania
наверх Новости сайта Азбука VB
наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Автор: Шатрыкин Иван. Соавтор: Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Юлия Ответ ожидается по этому адресу Уважаемые мужчины, подскажите, пожалуйста, что означает "не удается инициализировать среду Visual Basic" и как с этим бороться, т.к. работа стоит, а я ничего не могу сделать. Автор вопроса: DedMorozzz Ответ ожидается по этому адресу Как выделить другим цветом строку из списка Report View? Автор вопроса: Alzh Ответ ожидается по этому адресу Как в Worde или Excele прочитать DocumentProperty (BuiltInProperty), для документа, не открывая его ? Например, Author или Comments. Автор вопроса: sin Ответ ожидается по этому адресу Как в VB при нажатии кнопки с рисунком изменялся ее рисунок н другой? Автор вопроса: Андрей Ответ ожидается по этому адресу Как получить список свойств (Properties), доступных элементу определенного класса (напр. TextBox)? Для каждого свойства также надо узнать тип значения (integer, string, ...), перечисление или диапазон доступных значений, доступность/недоступность изменения в Run-Time/Design-Time и т.д. Информация об этом должна храниться в ocx-файле (по крайней мере о нестандартных свойствах, а стандартные можно зашить), так что думаю что будет достаточно даже информации о том, где найти описание структуры осх-файла. Автор вопроса: Вано Ответ ожидается по этому адресу Как соядать xxx.dll (ActiveX), чтобы она считала корни квадратного уравнения и потом соядать xxx.exe файл для обращения к этой xxx.dll и ввести только A,B,C и все... В MsgBox'е будет высвечиваться X1 и X2. Заранее спасибо... Автор вопроса: Vadim Ответ ожидается по этому адресу Я с помощью функции SetWindowRgn устанавливаю регион. Но вот когда я его начинаю перемещать, то он остается на месте а перетаскивается только рамка. ВОПРОС: какие параметры поставить, или может есть специальная функция для перемещения региона??? Автор вопроса: Алексей Ответ ожидается по этому адресу Подскажите как средствами Visual Basic 6.0 разбить файл по 1,44Mb, а затем скопировать на дискету. Автор вопроса: ALEX Ответ ожидается по этому адресу А как сделать переяагруяку или выключение компьютера программно (у меня Visual Basic 6.0)? Автор вопроса: Серж Ответ ожидается по этому адресу Подскажите как органияовать пауяу, менее 10мс. API-функция Sleep мне не подходит, так как имеет дискретность 10мс (в Win2000). Т.е. с ее помощью можно соядать пауяы 0, 10, 20, 30 мс и т.д., а мне надо дискретност хотя бы в 1мс. Автор вопроса: Rad Ответ ожидается по этому адресу Как в элементе управления Webbrowser органияовать функцию автоскроллинга Автор вопроса: Oleg_T Ответ ожидается по этому адресу Подскажите кто янает, как данные, воявращаемые яапросом вставить в MSFlexGrid? Для доступа испольяую DAO. Автор вопроса: lynx Ответ ожидается по этому адресу Поставил прогарамму Crimson Help/Написал свой справочник, и казалось все харашо, но стал вопрос как в меню Справка->Версия вписать свои данные. <Бо нада сдавать написанный справочник в универ, а там автор не тот...> Автор вопроса: Ted Ответ ожидается по этому адресу Как разбить ListBox или ListView на несколько колонок и заполнять колонки раздельно и независимо? Другими словами нужно отображение как в таблице, но с использованием ListBox или ListView. Подскажите или дайте ссылку где можно посмотреть. Автор вопроса: Alex Ответ ожидается по этому адресу Подскажите пожалуйста, где можно вяять полное описание к API-функции "SystemParametersInfo", примеры работы с ней? Буду рад любой информации! Автор вопроса: Vladimir Ответ ожидается по этому адресу Как открыть конкретный файл в Екселе их VB6. Иявлечьданные-ия столбца, обработатьи вернуть на место. Ответы: Вопрос: 1.Подскажите пожалуйста как програмно создавать Базы данных .DBF формата 3 или 4. 2.Есть файл отчета CRystalReports. как в него из кода засунуть к примеру строку текста. ( конкретно такая ситуация. у меня отчет формирует список цен, а вконце надо добавить строку сумма прописью.) как? Ответ: Автор ответа: Rutshtein Alex 'Вот как создать DBF-файл. Просто вызовите процедуру CreateDBF и в качестве первого параметра укажите имя файла, а в качестве второго параметра имя, длину и тип полей, например: CreateDBF("C:\Temp\base.dbf", "NAME-C-20|NUM-N-5|DATE-D|FLAG-L|MEMO-M|" В этом примере будет создан DBF-файл с полями: NAME, NUM, DATE, FLAG и MEMO. Тип C - string, N - integer, D - date, L - boolean, M - memo. Т.е. формат такой: ИМЯ_ПОЛЯ-ТИП_ПОЛЯ-ДЛИНА_ПОЛЯ. Option Explicit Public Sub CreateDBF(FileName As String, Fields As String) Dim FileNum As Integer Dim FieldName As String Dim FieldPos As Integer Dim FieldsCount As Integer Dim Field As String Dim Sym As String * 1 Dim Pos As Long Dim i As Integer Dim B As Byte Dim S As String Dim L As Integer FileNum = FreeFile Open FileName For Output As FileNum Close #FileNum FileNum = FreeFile Open FileName For Binary As FileNum L = 0 Do While True L = InStr(L + 1, Fields, "|") If L = 0 Then Exit Do FieldsCount = FieldsCount + 1 Loop If Right(Fields, 1) <> "|" Then Fields = Fields + "|" If FieldsCount > 255 Then FieldsCount = 255 S = String((B + 1) * 32, Chr(0)) Put #FileNum, 1, S FieldPos = 1 L = 0 For i = 1 To FieldsCount Pos = i * 32 + 1 Fields = Mid(Fields, L + 1) L = InStr(1, Fields, "|") S = Left(Fields, L - 1) B = InStr(1, S, "-") If B = 0 Then Exit For FieldName = Left(S, B - 1) Sym = UCase(Mid(S, B + 1, 1)) Select Case Sym Case "C", "N" B = InStr(B + 1, S, "-") B = Val(Mid(Fields, B + 1)) If B = 0 Then Exit For Case "D" B = 8 Case "L" B = 1 Case "M" B = 10 Case Else Exit For End Select Put #FileNum, Pos, FieldName Put #FileNum, Pos + 11, Sym Put #FileNum, , FieldPos Put #FileNum, Pos + 16, B FieldPos = FieldPos + B Next If i < FieldsCount + 1 Then MsgBox "I?eia?u caaaiey iiey:" + Chr(13) + Chr(13) + _ " NAME-C-20|" + Chr(13) + _ " NUM-N-5|" + Chr(13) + _ " DATE-D|" + Chr(13) + _ " FLAG-L|" + Chr(13) + _ " MEMO-M|", _ vbExclamation, "Ioeaea i?e caaaiee iiey" + Str(i) Exit Sub End If Put #FileNum, 11, FieldPos B = 3 Put #FileNum, 1, B B = Year(Now) Mod 100 Put #FileNum, , B B = Month(Now) Put #FileNum, , B B = Day(Now) Put #FileNum, , B L = (FieldsCount + 1) * 32 + 1 Put #FileNum, 9, L B = 13 Put #FileNum, L, B Close #FileNum End Sub Вопрос: Как сменить кодировку текста,что-бы в Text-box иметь возможность выбора шрифта. Сейчас у меня выходит неискаженый текст(кирилица) в Text-box только со шрифтом Terminal. Ответ: Автор ответа: SHatrykin Ivan Нужно использовать свойство Charset у объекта Font. Т.е. Text1.Font.Charset = 204 или другой номер кодировки. Вопрос: Знает кто нибудь, как можно програмно ограничить скорость соединения при закачке файла? Ответ: Автор ответа: SHatrykin Ivan Смотря чем закачивать файл. Например если с помощью Microsoft Internet Transfer Control, то можно сделать так: Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State 'здесь можно обрабатывать другие события Case icResponseCompleted '12 'открываем файл для записи принимаемых данных intFile = FreeFile Open "test.txt" For Binary Access Write As #intFile 'определяем время старта lCountTimeStart = timeGetTime 'принимаем первую порцию данных vtData = Inet1.GetChunk(1024, icByteArray) Do While LenB(CStr(vtData)) > 0 Put #intFile, , vtData 'следующая порция данных vtData = Inet1.GetChunk(1024, icByteArray) 'вот тут можно проверять сколько сливаем в секунду lCountData = Seek(1) 'уже слили lCountTime = (timeGetTime - lCountTimeStart) / 1000 'прошло секунд lSpeed = lCountData / lCountTime 'байт в секунду 'теперь нужно вычислить паузу в зависимости от нужной скорости lPause = 'как? думайте сами - текущая скорость есть, нужная скорость тоже 'держим паузу Sleep lPause Loop Put #intFile, , vtData Close #intFile End Select End Sub Вопрос: Как и Win2000 определить, подключен ли компьютер к нитернету (черея модем)? Ответ: Автор ответа: Sergey Для этого есть ф-ция InternetGetConnectionState. А вот сам пример (кстати он работает не только в Win2000, но и в любой системе где установлен IE 4.0): Private Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() Dim lResult As Long 'Если 1 то соединение есть, если 0 - то нет lResult = InternetGetConnectedState(0, 0) End Sub Вопрос: Как прочитать ия программы свои письма непосредственно с сервера. Подскажите где найти практические советы на эту тему или исходник. Ответ: Автор ответа: Sergey Y. Tkachev Вопрос в том, каким протоколом ты собираешься ходить на сервер. Чаше всего (по крайней мере в моей практике) это POP3 Описание протокола приводить не буду - его полно в Интернете. Если нужен исходник на Бэйсике, напиши лично, вышлю. Можно также качать почту и при помощи MAPI Controls, но это немного не по твоему вопросу :) Вопрос: 1. Подскажите как в VB нажатием на кнопку открыть документ Microsoft vord, для добавления информации. 2. Нужна консультация! Написал прогу по расчету кое каких данных, эти данные у меня записываются в файл C:\Мои документы\1.Doc: Внимание вопрос? Как мне найти этот файл на диске нажав на кнопку расположенную в моей программе, открыть его в формате Мicrosoft vord для добавления , корректировки данных или печати запустив Microsoft vord не открывая проводник. 3. Подскажите как быть, пишу программу для тестирования эл. сварщиков, столкнулся с такой проблемой: 1. Какой код написать, чтоб на диске найти файл теста с вопросами и ответами, 2. вывести содержимое файла по необходимым TextBoxам, и чтоб программа сама перебирала вопросы и ответы по техт боксам при нажатии на кнопку дальше. Причем так чтоб этот файл можно было корректировать со временем. 4.Люди подскажите! По сл. необходимости пишу тестовую программу. Какой код вписаь чтоб программа могла различать правильные и неправеильные ответы! 2. Каким образом выести текст вопроса в полном объеме в TextBox (при длинном вопросе он показывает только его часть), Причем и варианты ответов написаны в одном файле. Ответ: Автор ответа: Kirill 1. Предполагается, что на форме есть кнопка cmdOpenWithWinword и в проекте есть ссылка на библиотеку Microsoft Word (можно и без нее, тогда объявление переменной немного изменится и работать будет чуть медленнее /как утверждает фирма MS/) Private Sub cmdOpenWithWinword() Dim wdApp As Word.Application ' для управления Word'ом ' проверяем есть ли уже запущенный Word On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then ' если произошла ошибка, значит запущенного экземпляра нет ' запускаем Word сами Set wdApp = New Word.Application End If On Error GoTo 0 ' открываем документ wdApp.Documents.Open <имя_файла> ' на всякий пожарный делаем окно Word видимым ' и разворачиваем его на весь экран wdApp.Visible = True wdApp.WindowState = 1 End Sub 2. Я так понял тебе нужно чтоб вылезало окно выбора файла чтоб файл можно было найти ручками. Для этого удобнее всего воспользоваться контролом Microsoft Common Dialog Control (на всякий случай как его добавить в проект: жмешь правую кнопку мыши на панели с элементами управления, из контекстного меню выбираешь "Components...", находишь в списке название контрола и ставишь рядом с ним галочку. Если в списке его нет /что почти невозможно/ файл контрола -- c:\windows\system\comdlg32.ocx -- жмешь в окне со списком доступных контролов кнопку "Browse..." и находишь этот файл). Вобщем добавляешь контрол на форму, пишешь ему в Name cdcBrowse, добавляешь на форму кнопку cmdBrowse и в событии Click этой кнопки пишешь: Private Sub cmdBrowse_Click() cdcBrowse.Filter = "Word Document (*.doc)|*.doc|All Files (*.*)|*.*" cdcBrowse.FileName = "" cdcBrowse.ShowOpen If cdcBrowse.FileName <> "" Then ' выбран файл ' код для открытия файла в п.1 End If End Sub 3. Здесь я считаю удобнее использовать базу данных и свойства контролов DataSource и DataField. Подробнее писать слишком долго... 4. Смотря как реализуется ответ на вопрос. Чтоб полностью поместить вопрос в TextBox нужно ему поставить в свойство MultiLine True и сделать этот TextBox побольше размерами :) Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |