:
!
:
Sergey Y. Tkachev
Kirill
Sergey Sapozhnikov
Sobic
:
:
- !!! !
!
!
 |
Visual Basic 6. .Visual Basic - 32- Windows 95 Windows NT. : Visual Basic, , : , , , ActiveX, OLE drag-and-drop, FSO, , , .: : : 1998 - : 992 : 112,48 . : 70100/16 : |
 |
Visual Basic 6.- Visual Basic, . , SQL-. , . , . , , , . , Visual Basic 6, , .: . : : 2000 - : 416 : 70,78 . : 84108/32 : |
 |
Visual Basic 6.0 for applicationVisual Basic (VB), , VB, Visual Basic for Applications., , , , , , , . , Visual Basic Visual Basic for Applications. : .. : - : 2000 - : 448 : 113,87 . : 70100/16 : |
 |
Win32 API Visual Basic. / /, , , . , - .: . : : 2001 - : 1120 : 489,08 . : : |
 |
Windows 32 APIWindow95 Windows NT. , , . . 1 ( 2000 .) Windows, .: .. : : 2001 - : 312 : 85 . : 6088/16 : |
 |
Visual Basic 6.Visual Basic 6. " ". , Visual Basic . , Windows, ActiveX, ADO. RDO . , Visual Basic Internet. Visual Basic - VBA VBScript. Visual Basic, SQL.. : ., . : : 1999 - : 832 : 244,02 . : 70100/16 : |
 |
Visual Basic 6 + CD, , . . , . " Visual Basic 6" Visual Basic. , , , , . Visual Basic 6, , . 95% , Visual Basic.. : - .. : : 1999 - : 672 : 294,66 . : 70100/16 : |
VB .
Citycat by Email
Citycat by Email Subscribe.ru . online , ! , , , .
Citycat by Email http://sapisoft.h1.ru.
VBNet
|
MailChecker - Winsock . . ! Outlook? |
|
MailSender - Winsock . . . |
|
: 21.03.2002 05:13 | : ActiveX | : |
|
SetCapsMode - , ? , ? , , |
|
AgentVB - Ms Agent Microsoft . , ( ), . , . |
|
MP3 Tags - ID3v1 MP3. . 1. , . API , , ;-) |
|
: 19.03.2002 07:22 | : ActiveX | : |
|
TaSplit - - - . ... ? . |
|
FileProperties - , . |
|
WinsockControl - Winsock? Visual Basic. , ;-) |
20 VBNet.Ru:
09:35 / 24 . ... | : 1
05:23 / 24 . | : 1
21:49 / 23 . ... | : 1
15:31 / 23 . zapusk ishodnikov s neta | : 1
09:27 / 23 . Error: Logon session doesn't exist | : 0
03:21 / 23 . WIN/DOS | : 1
03:03 / 23 . ? | : 1
22:33 / 22 . ()???? | : 1
20:59 / 22 . Outlook | : 1
17:59 / 22 . | : 1
19:58 / 21 . | : 1
14:32 / 21 . | : 1
13:44 / 21 . Access'a VB !!! | : 1
12:50 / 21 . . FileSystemObject | : 0
12:31 / 21 . ???????????????????? | : 1
02:50 / 21 . ! | : 1
18:54 / 20 . ... | : 1
18:11 / 20 . Split | : 1
11:42 / 20 . !!! | : 1
08:14 / 20 . DBF | : 0
:
.
VBMania
- 25.01 - , VB .
- 22.01 - 22 - Visual Basic 'VB '. : , , , , . : dotNET ActiveX-. .
- 17.12 - , , , . , .
- 06.12 - .
! - 27.11 - -, ! ! . . .
- 01.12 - , . -, ; - .
!
VB
- 19 2001
.
, ? , ( , , ..), , , , A-Z a-z. .
, Photoshop .
RichEdit'. MousinRTF, , - RichEdit' ( IE), - RichEdit (, html, rtf), .
. , , .
- 10 2001
popMenu API CreatePopupMenu, AppendMenu, DestroyMenu, TrackPopupMenu GetCursorPos.
, . API - CallWindowProc SetWindowLong.
.
- : , , .
- Cipper .
- Assembler .
- PIC
- 3D
- GIF
BalloonMessage for MS Agent
BalloonMessage for Microsoft Agent
, Microsoft Agent. OCX
: InputBox, MsgBox MsgLabels.
: . : .
/
, .
:: Roman 'Devil' Yuakovlev
GetDiskFreeSpaceEx , etc... msdn... Btw, apitextviewer large_integer... , Double?
: Deull
BMP - ?
:
( WIN.INI).
:
.
1. .
2. .
3. COM1 COM2
:
Excel. . ..
:
1) ListBox , .
2) Data.
: P@Ssword
( ) ?
: Samit
Visual Basic 6.0 LPT COM, , ? , ? Web-, !
:
, , . -.
: Alex
"CONNECT ..."?
:
( " ")
:
VB, Access , ?
:
! . MSFlexGrid control. EditBox ComboBox . (Visible = True). , , , Visible True. Alt+[ ], ComboBox' . , . ? VB 6, SP 5.
: AIT
(" " )? ( , , ..).
:
? . Line. -
For a=1 to 2.
=0. On Error .
VB6 ?
: RIO
"" MDB. 'MoveLast' 'Max' , . . , , .
:
:
VB . , , BOLD(), , . :
Case "Bold"
With txtBox
If .FontBold = True Then
.FontBold = False
Else
.FontBold = True
End If
End With
:
: Rutshtein Alex
Bold Microsoft Rich Textbox Control. , .
:
VB . , , BOLD(), , . :
Case "Bold"
With txtBox
If .FontBold = True Then
.FontBold = False
Else
.FontBold = True
End If
End With
:
:
, , RichTextBox, , . TextBox, . . igoryk@yandex.ru
:
VB . , , BOLD(), , . :
Case "Bold"
With txtBox
If .FontBold = True Then
.FontBold = False
Else
.FontBold = True
End If
End With
:
: Roman 'Devil' Yuakovlev
richtextbox sel*
:
VB6?
:
:
Win9x,Me. , . WindowsXP .
:
VB. ( Win )
:
: NeoLord
Function Recode(Char As String, Src As Code, Dest As Code) As String
'Rem ,
'http://www.vbrussian.com'
Const wDos As String =
""
Const wIso As String =
"ע"
Const wKoi As String =
""
Const wWin As String =
""
Const NotRecodedChar As String = "?"
If Src = Dest Then
Recode = Char
Exit Function
End If
Dim t As String, i As Long, tt As String, a As Long, ss As String, ch As String
If Src = Win Then
t = Char
Else
Select Case Src
Case Koi: ss = wKoi
Case Dos: ss = wDos
Case Iso: ss = wIso
End Select
For i = 1 To Len(Char)
ch = Mid(Char, i, 1)
If Asc(ch) < 128 Then
t = t & ch
Else
a = InStr(1, ss, ch, vbBinaryCompare)
If a = 0 Then
t = t & NotRecodedChar
Else
t = t & Mid$(wWin, a, 1)
End If
End If
Next i
End If
If Dest = Win Then
Recode = t
Else
Select Case Dest
Case Koi: ss = wKoi
Case Dos: ss = wDos
Case Iso: ss = wIso
End Select
For i = 1 To Len(Char)
ch = Mid(t, i, 1)
If Asc(ch) < 128 Then
tt = tt & ch
Else
a = InStr(1, wWin, ch, vbBinaryCompare)
If a = 0 Then
tt = tt & NotRecodedChar
Else
tt = tt & Mid$(ss, a, 1)
End If
End If
Next i
Recode = tt
End If
End Function
:
unerase undelete.
:
: Rutshtein Alex
'
Option Explicit
Private Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long
Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function lwrite Lib "kernel32" Alias "_lwrite" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal wBytes As Long) As Long
Private Declare Function lread Lib "kernel32" Alias "_lread" (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long
Private Declare Function llseek Lib "kernel32" Alias "_llseek" (ByVal hFile As Long, ByVal lOffset As Long, ByVal iOrigin As Long) As Long
Private Sub Form_Load()
Const BlockSize = 98304
Dim S As String
Dim F As String
Dim F1 As String
Dim F2 As String
Dim i As Long
Dim i1 As Long
Dim i2 As Long
Dim N As Integer
Dim CurSize As Long
Dim FAttr As Integer
F = "C:\1.txt" '
CurSize = FileLen(F)
i1 = CurSize \ BlockSize
i2 = CurSize - i1 * BlockSize
FAttr = GetAttr(F)
SetAttr F, vbNormal
N = lopen(F, 2)
For i = 1 To i1 + 1
DoEvents
If i = i1 + 1 Then
lwrite N, S, i2
Else
lwrite N, S, BlockSize
End If
Next
lclose N
N = lopen(F, 2)
lwrite N, "", 0
lclose N
SetAttr F, FAttr
Kill F
End Sub
:
unerase undelete.
:
: P@Ssword
.
:
unerase undelete.
:
: Roman 'Devil' Yuakovlev
, , ...
:
() , ( ) + Picture , , . + (Picture), ( visible , , )+ EXE, (VB6)
:
: Tolic
. Picture, .
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then Picture1.Top = Picture1.Top - 50
If KeyCode = vbKeyDown Then Picture1.Top = Picture1.Top + 50
If KeyCode = vbKeyLeft Then Picture1.Left = Picture1.Left - 50
If KeyCode = vbKeyRight Then Picture1.Left = Picture1.Left + 50
End Sub
:
() , ( ) + Picture , , . + (Picture), ( visible , , )+ EXE, (VB6)
:
: _
OLE-, , Explorer , " ", VBasic'a OLE- "Paste Special". , , :
ole1.doverb
-.
; :
button1.left=button1.left + 10
button1 10 .. ( Properties->ScaleMode)
Picture-, Properties->index 0.
:
Private sub LoadObject_click()
load picture1(1)
picture1(1).show
end sub
Private sub UnloadObject_click()
unload picture1(1)
end sub
:
() , ( ) + Picture , , . + (Picture), ( visible , , )+ EXE, (VB6)
:
: Rutshtein Alex
:
MusicFile = App.Path + "\Music.wav"
App.Path - .
, C:\SuperMusic, MusicFile C:\SuperMusic\Music.wav
Picture1,
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
Picture1.Left = Picture1.Left - 50
Case vbKeyRight
Picture1.Left = Picture1.Left + 50
Case vbKeyUp
Picture1.Top = Picture1.Top - 50
Case vbKeyDown
Picture1.Top = Picture1.Top + 50
End Select
End Sub
: KeyPreview = True
Load, Unload. . - Index=0 1 ... - . .
, msvbvm60.dll. Delphi, .
:
() , ( ) + Picture , , . + (Picture), ( visible , , )+ EXE, (VB6)
:
: P@Ssword
1) ""
VB Resource Editor
2)
WinAPI sndPlaySound
3) ... Picture ... ...
, ( ;)
4) ... , ...
, ComputerDestroyer' ,
" "?
5) EXE,
PEBundle, Fusion ( ). -, (244 RAR)
:
, , - Excel. , , . .
:
: helaldmin
MS Excel . . .
:
.
:
- ""
- " "
" "
""
SQL " ", "" " " "". , Text.Box. : 17.03.02 15 1500 .
"VB 6.0" , "ACCESS" , "DATA"
:
: Linas
mySQL="SELECT A.[ ], COUNT(A.[ ]), SUM(A.[]) FROM A WHERE A.[ ]=#" + TextBox.Text + "# GROUP BY A.[ ]"
Set data.recordset = myDB.openrecordset(mySQL)
esli izpolzuetsia data.databasename
data.recordsource = mySQL
data.refresh
:
.
:
- ""
- " "
" "
""
SQL " ", "" " " "". , Text.Box. : 17.03.02 15 1500 .
"VB 6.0" , "ACCESS" , "DATA"
:
:
Private Sub Command1_Click()
Data1.DatabaseName = App.Path & "\db4.mdb"
Data1.RecordSource = "SELECT , Count() AS Count, Sum() AS Sum FROM GROUP BY HAVING =#" & txtDate & "#;"
Data1.Refresh
Label1.Caption = Data1.Recordset.Fields(0) & " " & Data1.Recordset.Fields(1) & " " & Data1.Recordset.Fields(2) & " ."
End Sub
SQL , - Format().
:
.
:
- ""
- " "
" "
""
SQL " ", "" " " "". , Text.Box. : 17.03.02 15 1500 .
"VB 6.0" , "ACCESS" , "DATA"
:
: Sergey
:
SELECT [ ],Count([ ]), Sum([]) FROM A WHERE [ ]='17/03/2002'
:
, . ?
:
: Rutshtein Alex
() Load. Unload. .
:
, . ?
:
: P@Ssword
General Declarations -
Dim MyCoolSuperPuperControl As
, ,
Set MyCoolSuperPuperControl = .Controls.Add ("", "")
! ... , ,
MyCoolSuperPuperControl.Visible = True.
:
, . ?
:
: _
INDEX=0, :
private sub button1_click()
load _(1)
_(1).show
end sub
,
. E-mail .