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

@Dimon_bogoduhov · Регистрация: 15.02.2012

Author24 — интернет-сервис помощи студентам

Предлагаю сюда скидывать все программы которые упрощают жизнь програмисту.
Например:
- Программа для генерации MsgBox в виде готовой строки кода и копирует ее в буфер обмена.
- Программа для создания иконок, которые принимает VB6.
- Программа для перевода hex to string и на оборот.
Сбрасывайте кому не сложно полезные проги.

@Dimon_bogoduhov · 18.02.2012, 00:30 **[ТС]**

или файл: VB6IDEMouseWheelAddin.rar, в котором лежит ДЛЛ.
-Регистрируете ее.
-Заходите в VB, в меню "Добавления==Менеджер Добавлений".(для руской версии Vb) или Add-Ins, затем Add-In manager... (для англ)
-Из списка Add-In Manager list выберите MouseWheel Fix
Отметьте галочкой пункты Loaded/Unloaded и Load on Startup
Подробная информация по установке лежит здесь в месте с ДЛЛ-кой
После этого у вас появляется возможность прокручивать окно кода с помощью мыши)

@Abu · 18.02.2012, 15:44

Ну добавлю чуток от себя:
всё на vbs

Получить ascii-код символа

Visual Basic

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

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

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}"

	18.02.2012, 15:44