Public Sub Test(Variable As Variant)
MsgBox "Тип: " & TypeName(Variable)
MsgBox "Длина: " & Len(Variable)
End Sub
Private Sub Form_Load()
Dim i As Integer
i = 255
Test i
End Sub
Info_m.be_free писал(а):пасиб... но я ишо типа думал готовенькое, для большинства типов (масивы там опять же)... ...ну врде как вот:
a=somearray
ShowSuperDebugWindow(a)
__________________
|||||||SSDW 0.1|||||х|
array-a _1"asd"
|_2"bebebe"
|_3"2"
10 bytes total
|__________________|
Info_m.be_free писал(а):К сожалению в моей программе нет такого окошка, я вот его и хотел найти..
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 30