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

Citycat by Email

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

наверх

---

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

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

Документация XML в C# - C# поддерживает создание XML Комментариев, что позволяет разработчикам быстро комментировать и документировать свой исходный код без необходимости прибегать к неудобным и по-разному отформатированным внешним файлам.

Дата: 28.01.2004 13:42 | Раздел: Статьи по VB | Автор: Albert Ponomarev

9Rays .Net Obfuscator - Полезный и мощный инструмент для исследования и защиты .Net сборок - Всем уже известно что .Net сборки имеют достаточно открытый формат, позволяющий исследовать не только структуру классов вплоть до каждого члена класса но и дизассемблировать код методов, содержащийся также в сборке и получить вполне структурированный и понятный текст.

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

02:18 / 1 фев.  Удаление объектов и пуст. строк в WORD | Хитов: 1 |  Ответов: 1
00:01 / 1 фев.  синтаксис ERROR'а | Хитов: 3 |  Ответов: 0
23:37 / 31 янв.  Домены | Хитов: 5 |  Ответов: 1
21:53 / 31 янв.  Как искать файлы в скрытых папках (ну и файлы с... | Хитов: 10 |  Ответов: 1
21:29 / 31 янв.  Скачать защищенный файл | Хитов: 5 |  Ответов: 0
20:26 / 31 янв.  Как заставить API GetOpenFileName выбирать толь... | Хитов: 7 |  Ответов: 0
20:06 / 31 янв.  Иконка в трее | Хитов: 6 |  Ответов: 0
19:53 / 31 янв.  Тем, у кого 98 | Хитов: 17 |  Ответов: 3
19:31 / 31 янв.  Видео | Хитов: 8 |  Ответов: 0
19:17 / 31 янв.   Компоненты | Хитов: 5 |  Ответов: 0
18:56 / 31 янв.  Рассылка ответов :-\ | Хитов: 4 |  Ответов: 0
17:47 / 31 янв.  Графические эффекты | Хитов: 12 |  Ответов: 2
17:20 / 31 янв.  Пароль | Хитов: 11 |  Ответов: 2
16:44 / 31 янв.  Virtual Key | Хитов: 14 |  Ответов: 1
15:59 / 31 янв.  Страсти по листбоксу | Хитов: 12 |  Ответов: 0
15:48 / 31 янв.  Запись в реестр в XP... | Хитов: 11 |  Ответов: 1
15:31 / 31 янв.  Константа (срочно нужна помощь) | Хитов: 21 |  Ответов: 4
14:33 / 31 янв.  Where are you? | Хитов: 2 |  Ответов: 0
14:08 / 31 янв.  Record Source | Хитов: 7 |  Ответов: 2
13:45 / 31 янв.  События | Хитов: 14 |  Ответов: 1


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



наверх

---

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

наверх

---

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

• 02.02.2003 - MSDN Flash 26.01.2004
  Веб-ресурсы, безопасность для разработчиков, файлы загрузки для различных продуктов, статьи базы знаний, примеры внедрения и инструкции, обучение

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

• 05.02 - Создание собственной исследовательской библиотеки в Office 2003 с помощью Google Web Service API
• 04.02 - Обзор Microsoft Office Word 2003 Beta 2 (часть 1 из 2)
• 03.02 - Импорт XML-карт, XML-списков и источников данных динамических диаграмм в Excel 2003
• 02.02 - Введение в Microsoft Cluster Service (MSCS) семейства Windows Server 2003
• 02.02 - Обзор Microsoft Office Word 2003 Beta 2 (часть 2 из 2)

наверх

---

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

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

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

наверх

---

Один момент из жизни форума: Сумма всех значений в поле (SQL)

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

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

   Как при пмощи SQL получить общую сумму всех значений в Поле1?


Ответы:

Автор: boevik
   
textbox1.text = cn.execute("Select sum(Поле1) from table1").frilds(0)

   cn - активный конект к базе.



наверх

---

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

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

Вопросы:

---

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

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

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

---

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

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

   На моем счету уже с десяток, если не больше, программ написанных на VB. По этому уже давно подумываю, как и мои друзья (даааа… не перевелись еще програмеры на матушке Руси!!!) защитить права на авторство своих программ или зарегистрировать свою торговую марку или компанию или команду или четам еще есть. Подскажите, где это можно сделать (вернее, где в Инете можно сделать), сколько это будет стоить и т.п.

---

Автор вопроса: west_937@mail.ru

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

   Подскажите, как сделать в PictureBox, или еще где нибудь чтобы его поле плавно заполнялось каким нибудь цветом, как например при установке программ.

Прим. ред.: видимо, имелась в виду градиентная заливка :)

---

Автор вопроса: Котофей

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

   Как при помощи win api, зная hwnd окон, изменить содержание текстового поля, или нажать на кнопку программно?

---

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

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

   Приведите пример создания ссылки в реестре.
Например:

"HKEY_LOCAL_MACHINE\SYSTEM\software\counter"
строковый параметр "count"
значение "10"

---

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

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

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

---

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

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

   Как послать по электронной почте письмо с прикрепленным к нему файлом?

---

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

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

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

---

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

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

   Приходится пользоваться CommonDialog для вызова матрицы цветовой палитры, но мне нужны цвета в формате “Hex”. Проблема состоит в том, что цвет, переведенный в Hex, не соответствует истинному цвету, выбранному с помощью предлагаемой цветовой матрицы. Подскажите, как правильно перевести цвет в Hex. Можно ли воспользоваться другими цветовыми матрицами, если да то какими (и как)? Как можно выбрать цвет наведением курсора на любой объект, как принадлежащий данному приложению, так и вне него? Если можно приведите пример. Надеюсь на помощь…

---

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

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

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

---

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

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

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

---

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

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

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

---

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

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

   Нужно вывести все шрифты из папки Fonts в ComboBox, подобно тому, как это делает добрый старина Word, и заблокировать кнопку (Enabled = False), отвечающую за жирный шрифт, если выбранный шрифт этого не поддерживает.

---

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

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

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

---

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

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

   Как придаточную форму “приклеить / выровнять” по краю MDIForm-ы, подобно тому, как это происходит в VB с окнами Properties, Standard, General, Form Layout? Возможно, ли создать подобное с меню, в VB оно приклеено к верху формы, а в PromtXT и Word’е его можно таскать и приклеивать по любому краю окна? Надеюсь на помощь…

---

Ответы:

---

Вопрос:

   Подскажите пожалуйста, какой код вписать в прогу, чтобы она перебирала файлы в определенной дериктории, как это делает например AVP Касперского?

Ответ:

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

Можешь просто воспользоваться контролом File: кидаешь его на форму, в коде
кнопки пишешь:

file1.path="c:\windows"
dim i as integer
for i=0 to file1.listcount-1
debug.print file1.list(i)
next i

---

Вопрос:

   Как создать БД на VB? Но только не Access. А типа FoxPro Paradox и т.д. Если можно то поподробней. Я только начинаю изучать VB.

Ответ:

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

1. Прежде всего, надо разобраться, какие услуги для этого предоставляет держатель архитектуры вашей базы данных, тот, кто "Немайкрософт".
2. Если же держатель в целях поддержания конкурентоспособности своего продукта, хочет быть представленным на платформе Windows, ему надо соблюдать какие-то общеринятые правила игры. Борланд предлагал какие-то свои, Майкрософт - свои. Сейчас большинство компаний старается приспособится к тому, что предлагает Майрософт, т.к. у них получается это продуманнее всего. Например, таже самая Acceess-база гораздо мощнее по возможностям, чем DBF III-DBF V или Paradox. Вопрос, насколько вам нужны элегантность и мощность, а также насколько вы способны учиться, остаётся за вами.
3. Итак, что же предлагает Майкрософт для создания БД в VB6? Это метод доступа ADO DB (Extented). Для этого надо проставить в References своего проекта ссылку на Microsoft ADO Ext.
Далее надо в зависимости от того, какую базу надо создать, написать обращение к методу Create.

---

Вопрос:

   Проблема следующая. Нужно передать кучу параметров одной переменной. Я пишу следующее:

В модуле объявляю тип, в котором включены все данные

Public Type данные_оборудования
     ID As Single
     наимен_оборуд As String
End Type

В одной форме пишу

Public Function данные_формы(данные As данные_оборудования) As
данные_оборудования
данные.ID = 10
данные.наимен_оборуд = "Какое-то название"
данные_формы=данные
End Function

В другой форме пытаюсь их получить

Dim данные As данные_оборудования
данные = оборудование_Форма.данные_формы(данные)

И он мне пишет, что только общие определённые пользователем типы в общих модулях объектов могут использоваться как параметры или возвращённые типы для общих процедур модулей классов или как области общих определённых пользователем типов.
Что он от меня хочет?

Ответ:

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

Короче фишка в том, что в формах нельзя объявлять функции вида Public. Это можно делать только в модулях.

---

Ответ:

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

У меня такая же проблема, НО твоя решается легче, т.к. у тебя нет строк фиксированной длинны.
Создаешь Active DLL, там прописываешь свой тип в Классе, компиллируешь, подключаешь его в Refereces и используешь свой тип.

---

Ответ:

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

Не мучайся с типами - в VB с ними как-то все плохо.. Напиши лучше класс. При той же функциональности не будет таких жестких границ применения.. Плюс функции можно будет встроить, но это уже по желанию. Могу помочь.

---

Вопрос:

   Люди как мне загнать в коллекцию Public User-type
Я хочу сделать класс для работы с данными на при написании функций с параметрами моего типа он пишет, что там может использоваться только тип обьявленный как public в модуле который тоже Public.
Создал Active DLL все тип обьявлен как глобальный НО в типе не может содержаться строки определенной длинны (aa as string*2). Что мне делать!

Ответ:

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

На самом деле смотря что тебе надо.. Может, сойдет запихнуть в коллекцию адрес этой public переменной? Правда, потом придется слегка извратиться с получением содержания по этому адресу.. А вообще - опиши конечную цель, может я скажу как лучше поступить..

---

Вопрос:

   Подскажите, пожалуйста ответ на такой вопрос: создаю из VB объект "Word", создаю документ, вношу данные, создаю таблицы. Как можно перемещать по таблице с помощью операторов VB (напр. вниз на ячейку, вправо на столбец и т.д.), т.к. те операторы, что предлагает Word (при исследовании макросов) содержат константы Worda и для VB неприемлимы.

Ответ:

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

Каждая константа WORD имеет численное значение, которое можно узнать в окне Immediate через Print [constant]. Можно его использовать напрямую, если имя чем-то не устраивает.

---

Ответ:

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

Посылаю функцию своей программы, которая как раз читает таблицы WORD и выбирает из нмх данные. Думаю, что, что тебя интересует, находится в выделенных зеленым строках.

Public WordApp As Word.Application
Public DocWord As Word.Document

Set RTable = DocWord.Tables(k)

Sub Read_Table(MTable As Object)
'Обработка одной таблицы с записью данныx в базу\текстовый файл
'
Dim C1 As String, i As Integer, j As Integer, myRange As Range, lRange
As Range
Dim NumbRows As Integer, bF1 As Boolean
'---------------------
   

NumbRows = MTable.Rows.Count: bFl = False 'флаг формирования первой строки
For i = 1 To NumbRows
     Set myRange = MTable.Cell(i, 1).Range
    * myRange.MoveEnd Unit:=wdCharacter, Count:=-1: C1 = myRange.Text*
     If (InStr(C1, "№") = 0) Then
' a = Asc("№")
         If IsNumeric(C1) Then
           * j = 0 'запись элементов i-й строки таблицы в
массив SSS
             For Each acell In MTable.Rows(i).Cells
                 Set lRange = acell.Range
                 lRange.MoveEnd Unit:=wdCharacter, Count:=-1
                 SSS(j) = lRange.Text
                 j = j + 1
             Next acell*

         'Put #F_Out, , SSS 'запись в файл

     End If
Next
'Close #F1
Set lRange = Nothing
Set myRange = Nothing
End Sub

Смысл в том, что по таблице двигаются с помощью перебора индексов, не двигая курсор.
Успехов в этом неблагодарном деле!

---

Вопрос:

   Написал прогу, используя компонент ActiveX. У меня она работает, а у других нет, выдаёт ошибку о том , что якобы не может найти ActiveX. Что делать?

Ответ:

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

Попробуй в папку со своей программой скопировать этот ActiveX, есть вероятность, что он пойдет даже без регистрации.
Если нет, то зарегистрируй его при помощи regsvr32.exe.

---

Ответ:

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

VB'шным инсталлером создай dep файл. Посмотри его блокнотом и распространяй в дистрибутиве вместе с программой все .ocx файлы, которые там прописаны. Там только названия. Сами файлы лежат в System32.

---

---

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

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

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

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

наверх