How many useing what to develop in VB.Net...?

[Magiaus]

Please take poll

[MedevH]

IS THERE ANYTHING ELSE!!!

[Magiaus]

come on now vote

[AMDPwred]

Since when could you code VB in notepad?

[kovan]

Originally posted by AMDPwred
Since when could you code VB in notepad?

you can pretty much write any .NET code in notepad
(they are refering to vb.net, not vb6-

[AMDPwred]

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.

[Magiaus]

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

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

this is true for all activeX, COM, and so on you just have to know read Mastering Visual Basic 6 it covers it briefly

[MedevH]

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

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

You bunch a newbies make my day full of laughter
And becsue Magiaus forgot to add this here is what gets coded into a .VBP file ALL IN NOTEPAD MIND YOU!!!

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

HAHAHAHAHA!!!!

[Magiaus]

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

Object={063CC6D8-C221-11D0-AD30-00400516FF78}#1.0#0; FLOATBUTTON.OCX

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 nothing

nuff said

[MedevH]

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!!!

[ZanM]

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 )

[Magiaus]

I didn't say I would do it just that it could be done.....

[Cander]

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.

[Magiaus]

well it looks like most people are using vs.net

i still think notepad is da %curse word%

[Magiaus]

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.

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!!

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!

[Cander]

Ok tell me this...Does Magiaus = MedevH? If not, I wasnt referring to you..

[MedevH]

To avoid the confusion this is going to cause
the above post was made MedevH not Magiaus

[MedevH]

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

[Magiaus]

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

[Magiaus]

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......