VBNet
VBMania
: ! : Sergey Y. Tkachev Kirill Sergey Sapozhnikov Sobic : |
!!! MSDN!!! :
- !!! !
!
VB . Citycat by Email Citycat by Email Subscribe.ru . online , ! , , , . Citycat by Email http://sapisoft.h1.ru. VBNet
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
VB
.
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 . |
||||||||||||||||||||||||||||||
: |