A1VBCode Forums / General Discussion / Forum Feedback / A1 is my favorite VB site... / Latest Posts

RE: A1 is my favorite VB site...

Keithuk — Sun, 13 Jun 2010 06:32:09 GMT

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.

RE: A1 is my favorite VB site...

Joey — Sat, 12 Jun 2010 16:23:08 GMT

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.

RE: A1 is my favorite VB site...

steve7680768 — Sat, 03 Apr 2010 06:34:20 GMT

That sounds a bit awkward...

RE: A1 is my favorite VB site...

Keithuk — Sun, 31 Jan 2010 08:50:22 GMT

Welcome to A1vbcode Mark.

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.

A1 is my favorite VB site...

MarkGriffeth — Sun, 31 Jan 2010 05:46:17 GMT

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