Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 182.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 182.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Новый выпуск!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Эксперт - Привет, Серый. - Угу, привет. Ты проходи, садись, я щас, с функцией тут разберусь... - Да я на момент. Вопросец имеется. - Вопросец, вопросец... Так, тут переменная не объявлена... Вопросец... С вопросами в систему, к экспертам... А тут точку не поставил! Вот она где, соб-бака!! - Ты че, какая система? Ты о чем? - О! Все, работает... Чего ты говоришь? - Ты про каких это экспертов тут заикаешься? - А-а. А ты что, первый раз слышишь, что ли? Ты на СообЧа бывал? - Где?!! - Да вот, гляди. Щас соединимся... Во! http://soobcha.ru, зришь? - М-да... Занятно. Так я с вопросом к тебе... - А я вот и говорю: туда иди, в систему "Эксперт", там ответят. - Это чайники, что ли, ответят? - Не сомневайся, ответят. Там у них такое наворочено... Короче, ты по почте вопрос свой задаешь - и все:)))))) Больше не изволь беспокоиться, там они сами будут искать ответ на твой вопрос. А через некоторое время вывалят тебе на ящик не один, а несколько ответов. Пользуйся и радуйся:) - А чего это они там такие добрые да услужливые? У них чего, своих проблем нет? Сколько я должен платить за такое трогательное беспокойство? - Ну, это немного. Меньше, чем ты думаешь:) Тебе достаточно только подтвердить правильный ответ. Давишь на соответствующую ссылку, дескать, вот этот ответ мне понравился, помог, и я доволен. Просто пустое письмо засылаешь к ним, и вся оплата. А если хочешь у них экспертом стать, то пожалуйста, регистрируйся и отвечай на вопросы. - Кем? Экспертом? - А что? Что-то ты ведь знаешь, не вчера за комп сел. - А на фига мне это надо? Разбираться с чужими проблемами... У меня своих - хоть отбавляй... - Ага. Вот ты только что спрашивал: а сколько? И если уж ты со своими проблемами обращаешься к людям, то ведь надеешься, что тебе помогут. А сам-то что, влом, что ли, помочь кому-то? Да ладно! Тебя, вобщем-то, никто и не тянет, не заставляет. А вот те, кому интересно, кому не жаль поделиться, те там и работают. Я, между прочим, давно уже с ними. - В смысле, экспертом, что ли, заделался? И сколько тебе платят? - А ты не прикалывай. Там никто никому не платит. А вот конкурсы, между прочим, проводят, и не хилые. Представляешь, за лучший ответ дают бесплатно три месяца платного хостинга, да еще домен регистрируют. За просто так. А вот тебе, если ты задашь самый лучший вопрос, тоже приз может выгореть. - Это как: лучший? На который никто ответить, что ли, не сможет? Так я щас таких вопро... - Причем тут это? Просто ты, если вопрос пишешь к ним, так сподобься хоть запятые в нужных местах поставить, там, грамотно, короче, обрисуй свой трабл. - Ну ладно, въехал. Ты мне вот лучше помоги с моим траблом. Мой Фотошоп не хочет по русски работать... - Ха, так этот трабл там уже сколько раз появлялся. У них на сайте и ответ есть... Вот, любуйся: Заходим в редактор реестра (regedit.exe). Находим ключ HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Nls\Codepage В нем изменяем значение параметра 1252 с cp_1252.nls на cp_1251.nls. Перезагружаемся... - Понял... погоди, запишу... - Да чего записывать? Шагай домой, входи на сайт и копируй... - Да я ссылку запишу... Слушай, а как там в эту систему вопрос задать? Вообще, как она работает? - Так тут же, на сайте, все есть. А вообще, можешь по почте пустое письмо загнать на mailto:reply.infoexpert@soobcha.ru, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там. - А не проше тебе здесь ответить? - Э-э-э... Там я баллы зарабатываю... - А это еще зачем? - Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока. - Пока. А как ты экспертом там зарегился? - Иди, иди! Инфу читай... наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 01:45 / 27 июл. Про дистрибутив VB.net | Хитов: 1 | Ответов: 0 20:48 / 26 июл. Подстановка данных в веб-форму | Хитов: 4 | Ответов: 0 18:46 / 26 июл. Установится ли VB.NET на WINNT4Server? и какой ... | Хитов: 10 | Ответов: 0 08:44 / 26 июл. Криптография | Хитов: 24 | Ответов: 4 05:17 / 26 июл. html в браузере | Хитов: 20 | Ответов: 2 20:53 / 25 июл. Отправка письма | Хитов: 25 | Ответов: 3 15:37 / 25 июл. Учёт Инета | Хитов: 28 | Ответов: 1 15:35 / 25 июл. Цикл недаёт покоя!! | Хитов: 28 | Ответов: 1 15:31 / 25 июл. Авторы ShareWare, поделитесь опытом! | Хитов: 32 | Ответов: 2 14:14 / 25 июл. dhtml | Хитов: 12 | Ответов: 0 14:14 / 25 июл. dhtml | Хитов: 5 | Ответов: 0 13:36 / 25 июл. Замена Package & Deployment Wizard | Хитов: 23 | Ответов: 2 12:25 / 25 июл. MouseMove в GroupBox [.net] | Хитов: 7 | Ответов: 1 10:24 / 25 июл. Код для локалки... | Хитов: 35 | Ответов: 2 09:15 / 25 июл. Срочно, нид хелп | Хитов: 40 | Ответов: 3 09:06 / 25 июл. Принудительная остановка проги | Хитов: 34 | Ответов: 3 19:04 / 24 июл. Форма(Resize) | Хитов: 36 | Ответов: 2 18:47 / 24 июл. Определение текущего файла | Хитов: 44 | Ответов: 6 18:31 / 24 июл. ListView - возврат выделенной строки | Хитов: 29 | Ответов: 2 17:41 / 24 июл. RichTextBox | Хитов: 50 | Ответов: 5 Последние поступления в Библиотеку кодов: Уничтожение файла (2) DDE (10) Открытие рекордсета (11) Получение путей к системным папкам (8) Удаление HTML-тэгов (86) Использование WMI (66) Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet
Новые статьи:
наверх Новости сайта dotSite Новые статьи:
Новые примеры: наверх Один момент из жизни форума: Конвертировать C# в VB .NET Вопрос: Автор вопроса: Lord Как? В общем мне надо конвертировать только два небольших C# классов в VB .NET... Может утилиты есть какие-то? Ответы: Атор: vvs А смысл? .NET - мультиязыковая среда. Атор: Lord И что дает мне эта среда? Я же все равно не могу в одной сборке писать на нескольких языках... Атор: bushmen Я вижу, тебе уже на gotdotnet ссылочку подкинули... www.aspalliance.com/aldotnet/examples/translate.aspx наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Нет вопросов. Ответы: Вопрос: Написал я, скажем, программу, и хочу что-нибудь получить от того, кто ее использует. Как это устроить? Кто-нибудь может поделится знаниями электронной коммерции? Ответ: Автор ответа: Данила Передаёшь ограниченную версию (максимально ограниченную), требуешь оплату, получаешь оплату, отдаёшь полную версию. На всякий случай (чтоб уберечь тебя от ошибок). Под ограничением понимается не удаление каких-то функций, а лишь снижение их работоспособности. Т.е. прога должна предоставлять доступ ко всем своим возможностям (иначе что клиент будет оценивать), но при их использовании очень быстро наступали границы. Т.е., если база, то на 10 записей (хотя клиенту надо 10000), если браузер, то на 10 ссылок (хотя надо бесконечно) и т.д. Вариант с временным ограничением (когда после определённого промежутка времени прога перестаёт загружаться), как правило, не прокатывает, т.к. более менее грамотный программист обойдёт эту защиту в считанные минуты (подтверждено практикой). Вопрос: Как можно создать доступ к БД, которой пользуются 2 проги одновременно, при этом коннект к ним должен быть открытым у обоих? Ответ: Автор ответа: Данила Что за БД? Если MA, то просто открываешь базу без всяких ограничений, она по умолчанию общедоступна. Вопрос: Есть программа, в ней в качстве фона формы используются картинки в формате JPG, которые загружаються из указаной папки, при этом нужно эту папочку с картинками поставлять с программой, можно ли какм то образом эти картинки вшить в екзешник, чтобы избавиться от этого неудобства? Ответ: Автор ответа: Данила Не рекомендую, т.к. ты получишь больший объём, чем при раздельной поставке. Да и картинки проще заменить в папке, чем в проге. И пользователю веселее, получит возможность сменить скин. Вопрос: Пишу прогу которая работает с базой данных .mdb, и вот столкнулся с одной проблемой: прога должна работать с файлами которые выбирает пользователь... в VB проблем нет, но эргономичней было бы сделать на VBA прямо в Access, а там ни как не могу найти аналоги DriveList, DirList и FileList. Может плохо ищу? Помогите! Ответ: Автор ответа: Смыслов Кирилл Microsoft Scripting Runtime Вопрос: Проблема с SQL-запросом. Формирую запрос SELECT SUM(сумма) FROM... , проверяю есть ли чего If ...Expr1000 NOT IS NULL then и время от времени при явном присутствии Expr1000, прога заявляет, что там NULL. Может кто-то встречался с таким глюком? Ответ: Автор ответа: Смыслов Кирилл Наверняка это не глюк, а ты неверно строишь запрос. Пришли структуру таблицы и что тебе надо получить. Посмотрю. Ответ: Автор ответа: Sergey А в чем собственно проблема ? Если SUM (Field1) равна NULL, то условие is NULL сработает. Хотя конечно было бы желательно взглянуть на весь код целиком. Ответ: Автор ответа: SysOp Это не глюк, а Ваша невнимательность. Во-первых, рекомендую во всех случаях всё делать/описывать явно, а не надеяться на действия/свойства/результаты по-умолчанию. Вот Ваш запрос SELECT SUM(сумма) FROM... If ...Expr1000 NOT IS NULL then Я бы написал так SELECT SUM(сумма) AS my_sum FROM... If ...my_sum NOT IS NULL then Во-вторых, результатом запроса SELECT SUM(сумма) FROM... всегда будет одна строка с одним полем Expr1000. В-третьих, вспомним, что поле может иметь специальное значение - Null. Специальным оно является в том смысле, что не означает "пустая строка" или 0 (ноль). Null сообщает, что в поле вообще нет данных. Никаких. Вывод: "время от времени при явном присутствии Expr1000" Вы отбираете записи, у которых в поле "сумма" - Null. У всех! И результат суммирования тоже будет Null. Вопрос: Все видели как изменяется, например, размер рисунка в Word'е. А как сделать подобный контрол (или группу)? Мне удалось сделать только самое простое - увеличивать или уменьшать число кликами по стрелкам. Но еще хочется увеличивать это число с клавиатуры (клавишами управления курсором) и быстрое увеличение (уменьшение) числа - держишь кнопку, оно ияменяется, отпустил - остановилось... Ответ: Автор ответа: SysOp Напомню, что в VB6 есть стандартный контрол UpDown (как две кнопочки со стрелками вверх и вниз). Чтобы его подключть нужно в меню "Project" ("Проект") нажать "Components" ("Компоненты") и отметить Microsoft Windows Common Controls-2. Создаем новый проект. Ставим значение формы (Form1) KeyPreview=True. Добавляем на форму конрол UpDown1. Ставим его значения Min=0, Max=100, Value=0 (например). Добавляем текстовое поле Text1. Ставим его значение Text="0". Пишем следующий код: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Me.ActiveControl.Name = "Text1" Then With UpDown1 If KeyCode = vbKeyDown Then .Value = IIf(.Value - 1 < .Min, .Min, .Value - 1) ElseIf KeyCode = vbKeyUp Then .Value = IIf(.Value + 1 > .Max, .Max, .Value + 1) End If End If End If End Sub Private Sub UpDown1_Change() Text1.Text = UpDown1.Value End Sub Если контрол Text1 - в массиве (т.е. Text1.Index - не Null, а , например, =0), то строку If Me.ActiveControl.Name = "Text1" Then нужно переписать: If Me.ActiveControl.Name = "Text1" AND Me.ActiveControl.Index = 0 Then Вопрос: Как (в VB6) передать в массив каталог с файлами, т. е. что бы имена файлов стали индексированными переменными массива. Ответ: Автор ответа: Смыслов Кирилл Использовать Microdoft Scripting Runtime. Пробежаться по списку файлов в папке и заполнить динамический массив. Вопрос: При установке MSDN ия Visual Studio 6.0 в конце установки, после копирования файлов выдается сообщение об ошибке: "CloseCollection g_ccolCollection.Open(collectionname) dwError=7" Что делать? Ответ: Автор ответа: SysOp У меня был похожий глюк. Точно не помню, такая ли ошибка выдавалась или нет, но MSDN не устанавливалась (точнее, все файлы копировались на винчестер, но установка завершалась с ошибкой и MSDN не вызывалась из VB). Экспериментално установил, что: - если на голый HDD установить систему (я пользуюсь Win98SE), а потом сразу установить Visual Studio 6 и MSDN, то все нормально. - если после установки системы установить офис (я пользуюсь Office2000 SR-1), А потом ставить Visual Studio 6 и MSDN, то Visual Studio - ставится, а MSDN - нет. В чем причина - выяснять не стал. Вопрос: Можно ли узнать hwnd и (hdc) у ComboBox, ListBox, и других кнопок, используя АПИшные функции? Ответ: Автор ответа: Смыслов Кирилл Зачем? Проходишь по коллекции контролов на форме и получаешь нужные данные. Ответ: Автор ответа: Sergey Так Microsoft позаботилась о том, чтобы у визуальных компонент ComboBox, ListBox и т.д. было свойство hWnd - дескриптор окна. А API-функция GetDC возвращает дескриптор графического контекста: Dim hDC as Long hDC = GetDC(ComboBox1.hWnd) Ответ: Автор ответа: Артем Кривокрисенко hdc - легко! lngHDC=GetDC(lstMain.hwnd) Ну а узнать HWND - это потруднее. Нужно использовать FindWindow или подобные ей. Только зачем оно тебе, если HWND есть у каждого контрола? Вопрос: В мой "Блокнот" встроен RichTextBox. Пишу в нём, например: "Маша мыла раму." Сохраняю и открываю. Вот что он мне покаяывает: {\rtf1\ansi\ansicpg1251\deff0\deftab720{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset204{\*\fname MS Sans Serif;}MS Shell Dlg;}}{\colortbl\red0\green0\blue0;} \deflang1049\pard\plain\f2\fs17 \'cc\'e0\'f8\'e0 \'ec\'fb\'eb\'e0 \'f0\'e0\'ec\'f3. \par } Подскажите, пожалуйста, как мне от этого избавиться и, если в нём такое возможно, поменять цвет шрифта? TextBox мне не подходит, т.к. мой отчёт в него не влазит. Ответ: Автор ответа: Vladimir [PRC] У тебя текст сохраняется в виде RTF с сохранением разметки, цветов и размеров шрифтов, а загружается в виде обычного текстового файла. Используй загрузку/сохранение в одном виде: RichTextBox1.SaveFile "имя файла",0 или 1 RichTextBox1.LoadFile "имя файла",0 или 1 0 - RTF 1 - только текст без разметки Если необходимо сохранять разметку, то используй RTF. Изменить цвет: 1. Выделяешь текст (можно программно) 2. RichTextBox1.SelColor = цвет Также можно менять шрифт, размер, выделять курсивом и толщиной Ответ: Автор ответа: malex Тебе надо текст из RichTextBox'a сохранять вот так: Dim FN As Integer FN = FreeFile Dim FName As String FName = "C:\Text.txt" Open FName For Output As #FN Print #FN, RichTextBox1.Text Close #FN У меня работает... Ответ: Автор ответа: Sergey Тебе нужно указать явно тип создаваемого файла: RichTextBox1.SaveFile sMyPath,rtfText Правда, при этом пропадает все форматирование. Ответ: Автор ответа: Артем Кривокрисенко А как ты сохраняешь? Если стандартным методом РичТекстБокса, то сливай бензин и глуши мотор. Он сохраняет все в формате *.rtf. А чтоб сохранить Text, используй следующий код: Public Function LoadTextFile(Path As String) As String Dim strFile As String Open Path For Binary As #1 strFile = Space$(LOF(1)) Get 1, , strFile Close #1 LoadTextFile = strFile End Function Public Function SaveTextFile(Path As String, Text As String) Open Path For Output As #1 Print #1, Text Close #1 End Function Сохраняешь так: SaveTextFile "C:\1.txt", rtbMain.Text И усе. Ну я поменять цвет шрифта - проще простого! With rtbMain .selstart=0 .sellength= len(.text) .selcolor=vbblue end with И весь текст станет синим. Ну а выделяя не весь текст, а его часть, можно сделать текст разноцветным. Также можно поменять "жирность" текста (SelBold), курсивность, подчеркнутость, размер, шрифт текста (SelItalic, SelUnderline, SelSize, SelFont соответственно) (точно названия свойств не помню, так что мог ошибиться). Вопрос: Как програмно подключится к сетевому ресурсу в локальной сети, вводя програмно имя пользователя и пароль, и получить ответ о подключении или неподключении. Ответ: Автор ответа: Sergey Morenets Если не хочешь использовать кучу API ф-ций, то самое простое так: Shell "net use h: \\SERVER\SHARE password" Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") if not fs is Nothing Then if fs.DriveExists("h") Then 'OK Else 'Ошибка End If End If set fs = Nothing Вопрос: Нужно на принтере вывести простой текст, но так, чтобы он был перевернут кверх ногами. Ответ: Автор ответа: Vir Первый способ: Перевернуть лист. Другой способ. Немножко муторный, но какой есть. На форме имеешь скрытый Picture1 со свойством AutoRedraw = True, ScaleMode=1,Borderstyle="0." Код приблизительно такой: str="Привет!!!" picture1.width=TextWidth(str) picture1.height=TextHeight(str) for i=0 to picture1.scaleHeight for j=0 to picture1.scalewidth col=picture1.point(j,i) printer.pset (j,TextHeight(str)-i),col next next printer.enddoc Или можно API, которая переворачивает текст на любой угол, зная hDC (printer.hDC), код вроде был в рассылке или посмотри на сайте VBNET.Ru. Вопрос: Как можно запретить гриду изменять подписи к полям? На форме контрол DataGrid связанный с ADODC и TreeView. Есть элемент TabStrip с кучей вкладок. Когда кликаешь на вкладке TabStrip, ADODC принимает новый рекордсет из другой таблицы DataGrid, перестраивается на другую таблицу. Фрагменты кода инициализации Грида. 'здесь привязываю грид к новому источнику Adodc1.RecordSource = strsql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 'а здесь выставляю подписи к столбцам из другой таблицы rst.Source = "select * from t_filds where table_name='" & curTable & "'" rst.Open Do Until rst.EOF DataGrid1.Columns(rst.Fields(1).Value).Caption = rst.Fields(2).Value rst.MoveNext Loop На гриде после этого все подписи по-человечески. Проблема в следующем: как только я обновляю источник данных (пользователь выбрал другой "нод" в TreeView и надо отразить данные из той же таблицы, но другой фильтр), у меня слетают "человеческие" подписи и берутся из имён столбцов в базе данных. Как можно запретить гриду изменять подписи к полям? Ведь если в режиме дизайна их установить, то при изменении источника они не меняются! Ответ: Автор ответа: Kuznetsoft Если в базе есть таблица "Table1" с полями "Field1" и "Field2", можно получить набор записей с заданными именами полей: "SELECT [Field1] AS Name, [Field2] AS Age FROM Table1" При выполнении такого запроса возвращается набор записей с названиями полей "Name" и "Age". Если указать гриду в качестве источника данных такой набор, он возмет названия для столбцов соответствующии: "Name" и "Age". Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
