|
| | | 
Forum Newbie
Group: Forum Members
Last Login: 2/4/2010 7:28:51 AM
Posts: 7, Visits: 273 |
| | and I will tell you why. It seems like every-other VB site I come across has it's VB 6 and earlier code mixed with the VB.NET and later code. If it's not that, you have to do all kinds of crazy stuff just to download a snippet of code. I can not stand that, and it drives me up the walls. I am happy to join this site. This site has already provided me with a huge amount of useful code. I am here to stay. Thank you for creating this site. -Mark
#include <love.h> |
| |
| | | 
Forum God
Group: Moderators
Last Login: Yesterday @ 8:37:42 AM
Posts: 1,894, Visits: 5,293 |
| Welcome to A1vbcode Mark.  Well I don't find A1vbcode the best VB site for one reason. When you reply to a topic on all the other 25 VB forums that I use is you can't see the previous posts to copy and paste text. You have to have 2 browsers open. The other thing is posting code Public Function IsOsVista() As Boolean ' Declare local vars...
Dim lMajor As Long
Dim lMinor As Long
' Retrieve the actual info...
GetWindowsVersion lMajor, lMinor
' Check which OS we're on and Assign Global vars... You'll only have to call
' the function once this way...
' OS is Vista
If (lMajor = 6) Then
IsOsVista = True
m_IsVista = True
m_IsXp = False
m_IsW2K = False
Me.Caption = "Vista True"
' OS is XP
ElseIf (lMajor = 5) And (lMinor >= 1) Then
IsOsVista = False
m_IsVista = False
m_IsXp = True
m_IsW2K = False
Me.Caption = "XP True"
' OS is W2K
ElseIf (lMajor = 5) And (lMinor = 0) Then
IsOsVista = False
m_IsVista = False
m_IsXp = False
m_IsW2K = True
Me.Caption = "Win2k True"
End If End Function
as against Public Function IsOsVista() As Boolean
' Declare local vars...
Dim lMajor As Long
Dim lMinor As Long
' Retrieve the actual info...
GetWindowsVersion lMajor, lMinor
' Check which OS we're on and Assign Global vars... You'll only have to call
' the function once this way...
' OS is Vista
If (lMajor = 6) Then
IsOsVista = True
m_IsVista = True
m_IsXp = False
m_IsW2K = False
Me.Caption = "Vista True"
' OS is XP
ElseIf (lMajor = 5) And (lMinor >= 1) Then
IsOsVista = False
m_IsVista = False
m_IsXp = True
m_IsW2K = False
Me.Caption = "XP True"
' OS is W2K
ElseIf (lMajor = 5) And (lMinor = 0) Then
IsOsVista = False
m_IsVista = False
m_IsXp = False
m_IsW2K = True
Me.Caption = "Win2k True"
End If
End Function
This is Mark's way around it. Mark's Syntax.zip. Its a pity Mark's code doesn't work on other forums. You will find that forums that use VB6 and VB.Net separate these two languages in different sub forums. I won't tell you which is the best VB forum on the web, I presume you have found it. 
Keith
I've been programming with VB for 17 years. Started with VB4 16bit Pro, VB5 Pro, VB6 Pro/Enterprise and now VB3 Pro. But I'm no expert, I'm still learning.
|
| |
| | | Forum Newbie
Group: Forum Members
Last Login: 9/21/2010 12:42:02 AM
Posts: 1, Visits: 3 |
| | |
| | | Forum Member
Group: Forum Members
Last Login: 3/17/2011 8:55:21 PM
Posts: 57, Visits: 31 |
| Well I don't find A1vbcode the best VB site for one reason. When you reply to a topic on all the other 25 VB forums that I use is you can't see the previous posts to copy and paste text. You have to have 2 browsers open. Looks like they fixed that problem. If you scroll down on the reply page, you now can see the last 10 posts for each thread. |
| |
| | |
Forum God
Group: Moderators
Last Login: Yesterday @ 8:37:42 AM
Posts: 1,894, Visits: 5,293 |
| Joey (6/12/2010)
Looks like they fixed that problem. If you scroll down on the reply page, you now can see the last 10 posts for each thread.Yes in a fasion Joey if you click the the + on the bar. To see all the posts in that topic you have to open in a new window.
Keith
I've been programming with VB for 17 years. Started with VB4 16bit Pro, VB5 Pro, VB6 Pro/Enterprise and now VB3 Pro. But I'm no expert, I'm still learning.
|
| |
|
|