Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/14: Рейтинг темы: голосов - 14, средняя оценка - 4.93
124 / 59 / 2
Регистрация: 15.02.2012
Сообщений: 127
1

Полезные программы для програмистов под VB

18.02.2012, 00:17. Показов 2804. Ответов 2
Метки нет (Все метки)

Предлагаю сюда скидывать все программы которые упрощают жизнь програмисту.
Например:
- Программа для генерации MsgBox в виде готовой строки кода и копирует ее в буфер обмена.
- Программа для создания иконок, которые принимает VB6.
- Программа для перевода hex to string и на оборот.
Сбрасывайте кому не сложно полезные проги.
Вложения
Тип файла: rar MsgBox Generator.rar (33.2 Кб, 67 просмотров)
Тип файла: rar iconlover.5.13.rar (7.07 Мб, 95 просмотров)
Тип файла: rar hex generator.rar (5.2 Кб, 47 просмотров)
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2012, 00:17
Ответы с готовыми решениями:

Полезные коды и авторские программы на Lisp
Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно. Понятно, что...

Полезные VBS скрипты и программы по работе с ними
В этой теме выкладываем скрипты, которые часто используются Вами или на Ваш взгляд могут иметь...

С чего все началось? Для програмистов
С чего все наалось и когда? Почему вы решили стать програмистом? С какого языка начинали? ...

С++. Решение программ для начинающих програмистов
мне на днях сдавать работу,а я не знаю как сделать...помогите пожалуйста!!! сделать...

2
124 / 59 / 2
Регистрация: 15.02.2012
Сообщений: 127
18.02.2012, 00:30  [ТС] 2
или файл: VB6IDEMouseWheelAddin.rar, в котором лежит ДЛЛ.
-Регистрируете ее.
-Заходите в VB, в меню "Добавления==Менеджер Добавлений".(для руской версии Vb) или Add-Ins, затем Add-In manager... (для англ)
-Из списка Add-In Manager list выберите MouseWheel Fix
Отметьте галочкой пункты Loaded/Unloaded и Load on Startup
Подробная информация по установке лежит здесь в месте с ДЛЛ-кой
После этого у вас появляется возможность прокручивать окно кода с помощью мыши)
Вложения
Тип файла: rar VB6IDEMouseWheelAddin.rar (8.4 Кб, 78 просмотров)
0
1159 / 285 / 23
Регистрация: 28.09.2008
Сообщений: 553
18.02.2012, 15:44 3
Ну добавлю чуток от себя:
всё на vbs
Получить ascii-код символа
Visual Basic
1
2
3
4
5
6
7
8
9
Call Main()
sub Main()
Dim a
a=InputBox("Введите символ")
If a<>"" Then
    Msgbox Asc(a) & "   " & "Hex=" & Hex(Asc(a))
    Call Main()
End If
end sub

Получить символ по ascii-коду
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Call Main()
sub Main()
Dim a
a=Trim(InputBox("Введите число"))
If a<>"" Then
  a=IsNumber(a)
  If (a=-1) Or (a>255) Then
    MsgBox "Неверный формат данных!"
    Call Main()
  Else
    Msgbox Chr(a)
    Call Main()
  End If
End If
end sub
function IsNumber(s)
Dim i, res, h
If (Right(s,1)="h") Or (Right(s,1)="H") Then
  s=Left(s,Len(s)-1)
  h=True
End If
For i=1 To Len(s)
   If h=False And ((Asc(Mid(s, i, 1)) < 48 Or Asc(Mid(s, i, 1)) > 57)) Then
         IsNumber=-1
         Exit Function
  ElseIf h=True And ((Asc(Mid(s, i, 1)) < 48 Or Asc(Mid(s, i, 1)) > 57)) And _
     ((Asc(Mid(s, i, 1)) < 97 Or Asc(Mid(s, i, 1)) > 102)) And _
     ((Asc(Mid(s, i, 1)) < 65 Or Asc(Mid(s, i, 1)) > 70)) Then
      IsNumber=-1
      Exit Function
  Else 
      res=res+dec(LCase(Mid(s, i, 1)),Len(s)-i)
  End If
Next
If h=True Then
  IsNumber=res
Else
  IsNumber=s
End If
end function
function dec(s,i)
Select Case s
  Case "a"
    s=10
  Case "b"
    s=11
  Case "c"
    s=12
  Case "d"
    s=13
  Case "e"
    s=14
  Case "f"
    s=15
 End Select
dec=s*(16^i)
end function

Переименовать корзину :) (для winXP)
Visual Basic
1
2
3
4
5
Dim wShell
set wShell = WScript.CreateObject("WScript.Shell")
wShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\LocalizedString", "Помойко", "REG_SZ"
wShell.Run "%systemroot%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 0, True
WShell.SendKeys "{F5}"
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.02.2012, 15:44

Прикольная задачка для програмистов и не только
Условие задачи

Ищу програмистов для совместного создания онлайн игры
Меня зовут Антон, 17 лет. Хочется заниматься чем-то интересным для себя, поэтому и решил создать...

Таки надо доделать прогу, для програмистов не сложная
Помогите доделать прогу, для програмистов не сложная При компиляции выдает ошибку:...

Полезные советы для Windows 7
Полезные советы для Windows 7 - это сборник советов, в котором содержится полезная информация для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.