| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Страницы: « 1 2 3 4 5 6 7 »Показано 31-45 из 98 сообщений
68.
LeX
(20.03.2009 01:44)
0  
Офигенный сайт!!11 Нашел много интерестного. Спасибо
|
67.
viruskill
(10.03.2009 21:24)
0
Доброго времени суток! Очень признателен за ссылку на наш сайт-форум, но там ашипко в тексте;) Хотя, заходит верно ;)
|
66.
ДиФФиТ
(22.02.2009 19:36)
0
Ненуэтож ниспам)
|
65.
Igrok
(20.02.2009 22:24)
0
У кого есть готовый исходник Трейнера для какой-нибудь игры)на VB6?
|
64.
vladimir
(15.02.2009 21:57)
0
Сайт понравился. Получил толчок для изучения VB. Есть желание быть полезным.
С уважением Владимир Дёмин.
|
63.
Юрец Вованович
(11.02.2009 20:53)
0
Дифф стал спаммером ;) А еси серьезно, рекомендую:))) Перетераем на этом форуме всякие интересные темки
|
62.
DiffiT
(09.02.2009 22:31)
0
Ы =)
|
61.
Сергей
(08.02.2009 22:02)
0
прикольный сайт
|
60.
Serg
(19.01.2009 19:00)
0
Пасибо!!!!!!!!!!!!!!!!
|
59.
(18.01.2009 13:53)
0
Добавь вот это в верху там где переменные объявляеш:
Private 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)
''''потом кнопку
Private Sub Command1_Click()
Call ShellExecute(0, "Open", "http://www.сайт.ru", "", "", 1)
End Sub
|
58.
Serg
(16.01.2009 19:39)
0
Подскажите,пожалуйста как в программу добавить ссылку на страницу в интернете.
|
57.
MaZaHaKa
(06.01.2009 20:04)
0
Леха, ссылки в Мастерской подправь, в основном слеши не правильно стоят (слешь aka /) Иконки прикольные.
|
56.
(24.11.2008 20:19)
0
А превратить в EXE очень просто, сначало
запускаешь VB6 выбираешь стандартные EXE проект.
кидаеш на форму 1 кнопку, и одно текстовое поле затем щелкаешь мышкой два раза по форме
и сразу после,
Private Sub Form_Load()
End Sub
------------------------
''копируешь все что ниже
Sub MakeDir(dirname As String)
Dim i As Long, path As String
Do
i = InStr(i + 1, dirname & "", "")
path = Left$(dirname, i - 1)
If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then
MkDir path
End If
Loop Until i >= Len(dirname)
End Sub
Private Sub Command1_Click()
Call MakeDir(Text1.text)
End Sub
'' После этого запусти прогу в Текстовом поле ты пишишь ''какую папку создавать, например C:Новая папка!!
''и жмешь на кнопку!
для того, чтобы это превратить в EXE заходишь в VB6 в меню
Файл>создать Project1.exe(если у тебя английская версися то выбираешь File> и.т.д. :)) вот выбираешь место куда сохранять этот EXE и жмеш на кнопку OK
|
55.
(24.11.2008 20:13)
0
Слил сюда:
http://slil.ru/26365057
|
54.
Вика
(24.11.2008 18:32)
0
Помогите доработать программу. Я не очень силен в VB.
У Вас на сайте есть подпрограмма создания пустых каталогов.
Как бы ее оформить в .exe-к. Спасибо.
|
|
|
|
