:cool: :) :eek: :eek: :cool: :pPlease take poll:cool: :) :eek: :eek: :cool: :p
Printable View
:cool: :) :eek: :eek: :cool: :pPlease take poll:cool: :) :eek: :eek: :cool: :p
IS THERE ANYTHING ELSE!!!
come on now vote
Since when could you code VB in notepad?
you can pretty much write any .NET code in notepadQuote:
Originally posted by AMDPwred
Since when could you code VB in notepad?
(they are refering to vb.net, not vb6-
Yeah I know, but I didn't think they would change the fact you couldn't write VB6 code in Notepad. Good call on MS's part. :)
now although you need the vb IDE to compile which you may not even need it if you could figure out how to use link.exe, c2.exe, and possibly cvpack.exe you don't need the IDE
here is the code for a complete vb form/exe as coded in notepad
this is true for all activeX, COM, and so on you just have to know read Mastering Visual Basic 6 it covers it brieflyCode:VERSION 5.00
Begin VB.Form iTray
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
ClientHeight = 4155
ClientLeft = 0
ClientTop = 0
ClientWidth = 6135
Icon = "frmTop.frx":0000
MinButton = 0 'False
MouseIcon = "frmTop.frx":0442
Moveable = 0 'False
ScaleHeight = 4155
ScaleWidth = 6135
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.Image imgArrow
Height = 480
Left = 90
Picture = "frmTop.frx":0884
Top = 90
Width = 480
End
End
Attribute VB_Name = "iTray"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'
' Magiaus 2002
'
' *********************************************************************************************************
' API Declares
' *********************************************************************************************************
Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI _
) As Long
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long _
) As Long
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" ( _
ByVal dwMessage As Long, _
pnid As NOTIFYICONDATA _
) As Boolean
Private Declare Function WindowFromPoint Lib "user32" ( _
ByVal xPoint As Long, _
ByVal yPoint As Long _
) As Long
' *********************************************************************************************************
' API Constants
' *********************************************************************************************************
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_MBUTTONDBLCLK = &H209
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_MBUTTONDOWN = &H207
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_LBUTTONUP = &H202
Private Const WM_MBUTTONUP = &H208
Private Const WM_RBUTTONUP = &H205
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
' *********************************************************************************************************
' API Types
' *********************************************************************************************************
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
' *********************************************************************************************************
'Developer Variables and Objects
' *********************************************************************************************************
Private mArrow As StdPicture
Private mDown As Boolean
Private mPoint As POINTAPI
Private lHwnd As Long
Private Tray As NOTIFYICONDATA
' *********************************************************************************************************
' Magiaus
Private Sub hwndTopMost( _
ByVal hwnd As Long, _
Optional ByVal onTop As Boolean = True _
) '**************************************************************
Dim lRet As Long
If Not (onTop = True) Then
lRet = SetWindowPos( _
hwnd, _
HWND_NOTOPMOST, _
0, 0, 0, 0, FLAGS _
)
ElseIf onTop = True Then
lRet = SetWindowPos( _
hwnd, _
HWND_TOPMOST, _
0, 0, 0, 0, FLAGS _
)
Else
'Man what the fik else can happen it's a bit
End If
'**************************************************************
End Sub
Private Sub Form_DblClick()
Unload iTray
End Sub
' Setup var. def. values
Private Sub Form_Load()
mDown = False
Set mArrow = New StdPicture
Set mArrow = imgArrow.Picture
Call TrayAddIcon
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mDown = True
Debug.Print "MouseDown"
Me.MousePointer = 2
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mDown = True Then
GetCursorPos mPoint
Debug.Print "Point X: " & mPoint.X & " Point Y: " & mPoint.Y
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mDown = True Then
lHwnd = WindowFromPoint( _
mPoint.X, _
mPoint.Y _
)
hwndTopMost lHwnd
End If
Debug.Print "MouseUp"
mDown = False
Me.MousePointer = 0
End Sub
' Form Unload Memory Clean Up
Private Sub Form_Unload(Cancel As Integer)
Call TrayRemoveIcon
Set iTray = Nothing
End
End Sub
Private Sub TrayAddIcon()
With Tray
.uID = 0&
.hwnd = Me.hwnd
.hIcon = mArrow.Handle
.uFlags = .uFlags Or NIF_ICON
.szTip = "OnTop..?" & vbNullChar
.uFlags = .uFlags Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.uFlags = .uFlags Or NIF_MESSAGE
.cbSize = Len(Tray)
End With
Call Shell_NotifyIcon(NIM_ADD, Tray)
End Sub
Private Sub TrayReemoveIcon()
With Tray
.uID = 0&
.hwnd = Me.hwnd
.uFlags = 0&
.cbSize = Len(Tray)
End With
Call Shell_NotifyIcon(NIM_DELETE, Tray)
End Sub
Can't write VB 6 in notepad eh??
Thats the funniest crock of newbie chit I've ever heard
Here if Magiaus wasn't convincing enough
You bunch a newbies make my day full of laughterCode:VERSION 5.00
Begin VB.Form frmAlarm
AutoRedraw = -1 'True
BorderStyle = 4 'Fixed ToolWindow
Caption = "Alarm For 8:00 AM"
ClientHeight = 330
ClientLeft = 45
ClientTop = 285
ClientWidth = 3195
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 330
ScaleWidth = 3195
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "frmAlarm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim bDoingIt As Boolean
Private Sub doIt()
If bDoingIt = True Then
Else
bDoingIt = True
Dim lRet As Long
Do
Cls
Print "The time is, " & Time()
If Time() >= "8:00 AM" Then
Call Playwav("C:\WINNT\Media\The Microsoft Sound.wav")
Call Pause(3.5)
End If
lRet = DoEvents()
Loop
End If
End Sub
Private Sub Form_Activate()
Call doIt
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmAlarm = Nothing
End
End Sub
'Private Sub tmrTime_Timer()
' Dim x
' x = DoEvents()
' Debug.Print Format(Time(), "Lomg Time")
' Debug.Print Format("1:49 AM", "Long Time")
' If Format(Time(), "Lomg Time") >= Format("1:49 AM", "Long Time") Then
' Do
' x = DoEvents()
' Playwav "C:\WINNT\Media\The Microsoft Sound.wav"
' Call Pause(2)
' Loop
' End If
'
'End Sub
And becsue Magiaus forgot to add this here is what gets coded into a .VBP file ALL IN NOTEPAD MIND YOU!!!
HAHAHAHAHA!!!!Code:Type=Exe
Form=frmAlarm.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
Module=dos32; ..\..\Refreance\Bas\DOS32.BAS
Startup="frmAlarm"
Command32=""
Name="Alarm"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Zedaga"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
the whole vbp thing is a ***** but it can be done to use an ActiveX you have to go into the registry and get the GUID for it and then put a line in the vbp looking like so
but I hate to break it to you but The IDE is just that an IDE not the linker, compiler or interpreter it handles all the back end code MS thought a VB programmer was to stupid to understand or was in to much of a hurry to worry with it isn't called RAD for nothingCode:Object={063CC6D8-C221-11D0-AD30-00400516FF78}#1.0#0; FLOATBUTTON.OCX
nuff said
Thats covering all the ground work Magiaus but...
do you really think there is anyone out there that will really understand it...
After all we are talking about someone who just said you can't write VB6 code in Notepad..
FUNKIT THOUGH!!!
HAHAHAHA!!!
who in their right mind would go through all that when they could just break down and use c++ i mean vb in notepad true notepad mind you no IDE generated code like you guys posted just notepad would be so hard it would be nearly impossible you would spend all your time in the registry looking for GUId's and trying to understnd Microsoft's crazy shell..... (not that it's that crazy;) )
I didn't say I would do it just that it could be done.....
While yes you can write VB6 code in notepad, it is not strict VB code. Alot of stuff that VB6 the IDE/Compiler understand is in there. Plus the fact that you have to pay to get VB6...well legally anyway :wink wink.. With .NET you can fully code 100% code in notepad.
MedevH: You need to stop this degrading behaviour of yours or it is going to get reported to the mods. WE are here to help, not to insult people becuase they dont know every bit of everything.
well it looks like most people are using vs.net
i still think notepad is da %curse word%
Honestly with someone that speaks his mind out-right the way I do Cander, do you really think I'm gonna care about being reported!!Quote:
MedevH: You need to stop this degrading behaviour of yours or it is going to get reported to the mods. WE are here to help, not to insult people becuase they dont know every bit of everything.
OH NO!!!
I can't read lame newbie posts anymore what ever will I do.
Besides I never thought I was being degrading toward the guy that said you couldn't write VB6 code in note pad I just found it funny.
Its not like the VB6 IDE encrypts all the code you type into hex
or worse Binary
its just a Notepad with a linker compiler and all the other things that make it up.
Common sense would tell you that and if a person doesn't Have the common sense to know that then more than likely they don't need to be programming, especially when much of it is just that...
COMMON SENSE!
Ok tell me this...Does Magiaus = MedevH? If not, I wasnt referring to you..
To avoid the confusion this is going to cause
the above post was made MedevH not Magiaus
Hey Magiaus if these guys haven't figured it out by now
they will after this post
The fact that we know each other was obvious but uhh well
what can I say next time you post something on my machine log out so I don't have to go back and realise that I posted as you
just to make it absolutely clear to every body the only thing Magiaus == is ZanM and the only reason I changed over is well I changed my handle on everthing ICQ, AIM, Yahoo, MSN, and so on for personal reasons and well I need to keep myself straight so I made a new user name wich I was hoping to keeo nice and clean and not get it #$%^ up so I go use this board as a refreance if I ever needed to.
but since we are on the subject
MedevH you are an anal b@st@rd and I can say that cause your my friend you really should try and have some respect for the people on these boards newbie or guru it shouldn't matter because when i came here nearly four years ago i wasn't a newbie to codeing or vb but I was a newbie to db and ado and these guys helped me out
and well since I am the backbone of most of your work and code maybe you should have some respect
how long have i been tell'n you that
let me say this 7 times out of 10 when i post a question it's stupid and I have the answer and post it before anybody else does
does that make me a dumb newbie if so what does that make you
nuff said
thread will be locked in a day or to so gripe while you can
ok i can't lock, can't delete i can't do anything with it
:( i only wanted to know who used what :(
so i am going to report myself to a mod and see if the will do something about deleteing or locking it
it is my thread after all i should be able to del it what if i messed up and typed a %curse word% or something......