Использование картинок из .NET-сборок - Большинству, если не всем, Web-сайтам для пользовательских интерфейсов необходимы картинки, а они обычно сохранены на диске. В этой статье показано, как можно использовать картинки из сборки, что может предотвратить быстрое увеличение количества файлов на диске, может упростить установку и настройку Web-сервера и повысить безопасность этих картинок.
RichEdit - От автора: Полноценный RichEdit контрол (класс), не использующьй OCX. Сразу же, дабы избежать недоразумений, скажу что сделан на основе RichEdit контрола c vbaccelerator.com, но без использования внешней библиотеки для сабклассинга контрола.
DoubleEliminator - От автора: Компонент позволяет блокировать повторный запуск программы вне зависимости от места расположения её и её возможных копий, а также вне зависимости от того, как завершила работу предыдущая копия программы - аварийно, или нет.
StopChar - В ходе изучения VB.NET и издевательства над TextBox-ом получился,на мой взгляд, довольно полезный и симпатичный контрол, реализующий идею контроля над действиями пользователя.Этот TextBox позволяет установить основной и дополнительный наборы символов,которые позволительно нажимать пользователю. Плюс разного рода украшательства и примочки. Как мне кажется,он будет многим полезен. Есть масса идей по расширению функциональности этого контрола, но я еще недостаточно силен в VB.NET,что бы их реализовать. И кроме того, прежде чем продолжить работу над ним я бы хотел знать ВАШЕ мнение. Мнение как профессионалов,так и таких же самоучек как я. Отзывы, советы, пожелания, предложения, ругательства, баги направляйте на E-mail: lidergroup.fromru.com Всем откликнувшимся заранее спасибо.
Working with Data Bases - От автора: Пример, пригодящийся тем, кто учится программировать на Visual Basic.Net. Демонстрируются возможности классов StreamReader, StreamWriter, FileInfo, DirectoryInfo, TextReader, TextWriter и производных классов.
Дни разработчика. Защищенный код
Компания Microsoft приглашает вас посетить бесплатный семинар для разработчиков и системных архитекторов, создающих решения для автоматизации бизнес-процессов с использованием технологий Microsoft, который пройдет в Москве, Алматы, Екатеринбурге, Нижнем Новгороде, Новосибирске, Киеве и Санкт-Петербурге.
.NET
При попытке обновить БД с строке
da.Update(ds)
возникает исключение:
Additional information: Update requires a valid UpdateCommand when passed DataRow collection with modified rows.
Ответы:
Автор: Павел
Для обновления БД нужно задать у DataAdapter'а свойства UpdateCommand,
InsertCommand, DelectCommand.
Как программно связать расширения файлов, например, *.lfa, *.lfb с моей программой? Но при этом для каждого расширения необходимо указать свой значок, который берется из exe-файла программы
Проблема следующая: при открытии в Word txt файлов, сделанных в Dos, не получается выравнять строки по ширине. Написать макрос, выравнивающий
строки, не проблема. Проблема - как при этом сохранить абзацы. Может быть,
кто-то знает ссылку на сайт, где описано решение этой проблемы.
Есть такой код. Проблема в том, что в Windows 98 он работает, а в 2000 и ХР нет. Подскажите, что здесь неправильно.
Private Declare Function CreatePolygonRgn Lib "gdi32.dll" (lpPoint _
As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hwnd _
As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim P(407) As POINTAPI
Dim hw As Long
hw=me.hwnd 'hWnd формы
'Заполняем массив точек. Данный массив рисует звездочку на форме
P(0).X = 124: P(0).Y = 0
P(1).X = 159: P(1).Y = 86
P(2).X = 248: P(2).Y = 86
P(3).X = 183: P(3).Y = 146
P(4).X = 248: P(4).Y = 312
P(5).X = 124: P(5).Y = 199
P(6).X = 0: P(6).Y = 312
P(7).X = 65: P(7).Y = 146
P(8).X = 0: P(8).Y = 86
P(9).X = 89: P(9).Y = 86
P(10).X = 124: P(10).Y = 0
'Вызов этой функции при работе под Win2000 дает 0
'Я менял второй параметр ставил его и 10 и 11, результат один и тот же.
Rgn = CreatePolygonRgn(P(0), 10, 0)
Call SetWindowRgn(hw, Rgn, True)
Как работают программы вроде ArtMoney?
Какими функциями перебирать значения переменных других программ?
Если можно, поподробнее описание работы этих функций...
У формы есть свойство Icon задай его, но BorderStyle должно равняться 1, 2 или 3.
Вопрос:
Что-то я не въехал (это наверно от большого ума), всё говорят о каких-то инсталяторах, без которых ничего не работает. А что, просто экзешник нельзя создать и радоваться жизни?
VB - очень шаткая система. Например, я встречал такие "баги": написал прогу под Win98 c использованием WinCommonCtrls 6.0. Под Win95 она уже не работала :(
Инсталлятор устраняет (должен, во всяком случае) эту ошибку. Еще, например, когда к твоей проге подключены кучи динамический библиотек (dll), есть настроечные файлы. Запихнул их в нисталляшку, и никаких проблем. К тому же, хорошие инсталляторы еще и сжимают :)
Далее. Насчет пятнашек. Загони их в матрицу. Допустим, матрица 3x3:
123
456
678
Числа все идут по порядку. Это важно. Далее делаешь вложенный цикл и заводищь переменную, прибавляя в которую по единице, бежишь по матрице и сравниваешь значения из матрицы с переменной.
Да бы создать матрицу - Rnd двойным циклом :) Но смотри, чтобы значения не повторялись!
Да вот не все так просто, но есть такая штука называется PowerWrap, вот с помощью нее можно сделать ЕХЕшник, который якобы не требует никаких дополнительных библиотек...
Вопрос:
Private Sub Command1_Click()
Open "c:\1.txt" For Append As #1
Write #1, "text"
Close #1
End Sub
Используя этот код, получается дописать одну строчку в конце, а не в начале файла как требуется. Помогите решить проблему… Возможно ли строчки в файле сравнивать с записываемыми данными, и если они совпадают, то перемещать строку в начало файла. Возможно ли удалять повторяющиеся или пустые строчки в файле.
open "c:\1.txt" for binary as #1
dim str as string
str=space(lof(1))
get #1,1,str
close #1
str="Теперь это первая строка" + vbcrlf +str
kill "c:\1.txt"
open "c:\1.txt" for binary as #1
put #1,1,str
close #1
Код проверки одинаковых данных:
...
get #1,1,str
close #1
...
if left(str,instr(1,str,vbcrlf)-1)="Это первая строка" then
str=str+vbcrlf+"Это последняя строка"
else
str="Это первая строка"+vbcrlf+str
end if
Код удаления пустых строк
...
str=replace(str,vbcrlf+vbcrlf,vbcrlf)
...
А с кодом поиска одинаковых строк сложнее (он слегка тупой получился):
...
Dim str2() As String
Dim str3() As String
str2 = Split(str, vbCrLf)
ReDim str3(UBound(str2))
For i = 0 To UBound(str2)
If str2(i) <> vbNullString Then str3(ii) = str2(i): ii = ii + 1
For j = i + 1 To UBound(str2)
If str2(i) = str2(j) And str2(j) <> vbNullString Then str2(j) = vbNullString
Next j
Next i
str = Join(str3, vbCrLf)
str = Replace(str, vbCrLf + vbCrLf, vbCrLf)
...
Вопрос:
Как в VB можно напечатать данные из сетки MSFlexGrid с помощью CommonDialog? И вообще как управляется печать через CommonDialog? С сохранением файла все понятно, а с печатью нет.
И еще как в VB можно открыть(запустить) любой файл, например, xls или txt?
Для запуска любого приложения или файла, связанного с приложением:
В модуль помещаешь:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const ShowNormal = 1
Public Const ShowMinimized = 2
Public Const ShowMaximized = 3
А потом вызываешь по надобности из любого места в программе:
Call ShellExecute(0, "open", FileName, "", "", ShowParam)
где: FileName - Имя запускаемого файла, ShowParam - Одна из трех выше
описанных констант.
Можете заполнить эту форму, либо отослать вопрос СЮДА
Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
