im currently working at this project of mine,but things really wore me of. im
having trouble with this reservation page because i dont know what to do in the
coding part.(yes im not that good at these..sadly) im using microsoft visual
studio 2008 professional edition (which i got it from my friend)
asp.net

here is my site.

http://aspspider.ws/omrs2009/

i want to have in my reservation tab there to become like this:

*there must be a drop down of the available movies

*date of reservation. hyperlink to calendar to pop up and date will be assigned

*the time of the movies
     = 10am - 12pm
     = 12pm - 2pm
     = 2pm - 4pm
     = 4pm - 6pm
     = 6pm - 8pm

*checking of the seats availble. (my total seats are 50) per movie..(total of 10
movies) (dont know how to make a database file)

*then by getting users info..(name, e.add, address and so on AND store in a
database)

*then numbers of the reserved seats will be minus to the total seats.

*and will save all the infos in a database


can somebody help me?please?<3 please?

  Hi...My name is Karen and I'm a new member of Visual Basic Official.
I took VB in college as part of my Web Development degree and landed a job
as a Technical Admin based on some of the credentials from my resume and I
ve informed them that my vb/macro knowledge is not as strong as they think
it is...but nonetheless...this is what they want.
So...
If anyone has real vb script/code knowledge and macro development knowledge
in Word AND Excel, if you can let me know I will post what I really need
help doing and then show you the code I have now...
My real help is in Excel because I'm very confused with building the code
for that because of the cells Excel contains.
Thanks!
~Karen
P.s. In return, I can assist folks with any HTML or JavaScript help, if need be!

[Non-text portions of this message have been removed]

HI Karen, ask me explicitly what you want to know.

--- In VisualBasic_Official@yahoogroups.com, "Karenality" <karenality@...>
wrote:
>
>
>
>   Hi...My name is Karen and I'm a new member of Visual Basic Official.
> I took VB in college as part of my Web Development degree and landed a job
> as a Technical Admin based on some of the credentials from my resume and I
> ve informed them that my vb/macro knowledge is not as strong as they think
> it is...but nonetheless...this is what they want.
> So...
> If anyone has real vb script/code knowledge and macro development knowledge
> in Word AND Excel, if you can let me know I will post what I really need
> help doing and then show you the code I have now...
> My real help is in Excel because I'm very confused with building the code
> for that because of the cells Excel contains.
> Thanks!
> ~Karen
> P.s. In return, I can assist folks with any HTML or JavaScript help, if need
be!
>
> [Non-text portions of this message have been removed]
>

Hello Roopesh!
Another member maybe trying to assist with the vba Excel question, but I
will let you know
Of both my challenges here I'm facing.
They are in Word and Excel.

For work...
If you can actually help me, I would greatly appreciate it.
One is for Excel and another is for Word.
If you don't mind, I would also like to let you know if you ever get an
email from me at
Karen.Hardy@...,  that would be me!
The first problem
Is it possible that from a single cell in Excel that we can create a macro
that will select any (not all or not a pre-defined selection of text...but
ANY given text) that the user may or may not select for specific formatting?
Because I'm having a problem understanding the ranges and the character
counts here.

And the second question...
OK...this one might be a little more complicating.
I have created a form in Word and it powers up when you click 1 of 5 macro
buttons on a toolbar I've created.
The form works very similarly to 2 of these buttons that I've created. The
two buttons are called Old Text and New Text and the form button is called
SetUp. Old Text is pre-programmed to, when a user selects text in a document
  it will automatically turn the text red with a strikethru. New Text will
turn the text blue with an underline. But say the user wants the text to
automatically turn purple with a strikethru and italic? That's where SetUp
comes in at! Now SetUp (with the cmdApplyOld_Click() or cmdApplyNew_Click()
) button will do that, but I want to be able to reprogram the Old Text or
New Text macro button. Is this at all possible? I keep thinking along the
lines of either a calling function or calling procedure or somehow a Get
code procedure?

I dunno...
(my boss is trying to make me do the impossible here).
Thank you in advance, for any help you can give.
~Karen




-------Original Message-------

From: Roopesh Mandloi
Date: 10/20/2009 1:36:19 PM
To: VisualBasic_Official@yahoogroups.com
Subject: [Visual Basic] Re: Newbie Group member here

HI Karen, ask me explicitly what you want to know.

--- In VisualBasic_Official@yahoogroups.com, "Karenality" <karenality@...>
wrote:
>
>
>
>   Hi...My name is Karen and I'm a new member of Visual Basic
Official.
> I took VB in college as part of my Web Development degree and landed a job
> as a Technical Admin based on some of the credentials from my resume and I
> ve informed them that my vb/macro knowledge is not as strong as they think
> it is...but nonetheless...this is what they want.
> So...
> If anyone has real vb script/code knowledge and macro development
knowledge
> in Word AND Excel, if you can let me know I will post what I really need
> help doing and then show you the code I have now...
> My real help is in Excel because I'm very confused with building the code
> for that because of the cells Excel contains.
> Thanks!
> ~Karen
> P.s. In return, I can assist folks with any HTML or JavaScript help, if
need be!
>
> [Non-text portions of this message have been removed]
>




------------------------------------

Visit http://aiaiai.com for more groups to joinYahoo! Groups Links




[Non-text portions of this message have been removed]

Hello My Friends,



To the point.

I have one ComboBox and one TextBox.



ComboBox Item is AB, CD, EF.



In the TextBox, there's a fix text. It's 999-777-AB.



Sometimes, the text changed using ComboBox.

I want to know the code, 'cause I got an error when try to load the code
below:



Private Sub ComboBox_Click()

        Right(TextBox.Text,2) = ComboBox.Text

End Sub



Anybody can help me.?

I just want to change the Code on the TextBox.



Thank you,



Regards,

Fauzan





[Non-text portions of this message have been removed]

Try this, read current textbox value to var x.
Then trim var x.length - 2.
Textbox.text = x & combobox.value

-----Original Message-----
From: "Fauzan Febri" <fauzan-sswp@...>
Date: Thu, 22 Oct 2009 10:02:13
To: <VisualBasic_Official@yahoogroups.com>
Subject: [Visual Basic] RIGHT

Hello My Friends,



To the point.

I have one ComboBox and one TextBox.



ComboBox Item is AB, CD, EF.



In the TextBox, there's a fix text. It's 999-777-AB.



Sometimes, the text changed using ComboBox.

I want to know the code, 'cause I got an error when try to load the code
below:



Private Sub ComboBox_Click()

        Right(TextBox.Text,2) = ComboBox.Text

End Sub



Anybody can help me.?

I just want to change the Code on the TextBox.



Thank you,



Regards,

Fauzan





[Non-text portions of this message have been removed]




[Non-text portions of this message have been removed]

how do i encrypt password including in the database?

--- In VisualBasic_Official@yahoogroups.com, "Karenality" <karenality@...>
wrote:
>
>
>
>   Hi...My name is Karen and I'm a new member of Visual Basic Official.
> I took VB in college as part of my Web Development degree and landed a job
> as a Technical Admin based on some of the credentials from my resume and I
> ve informed them that my vb/macro knowledge is not as strong as they think
> it is...but nonetheless...this is what they want.
> So...
> If anyone has real vb script/code knowledge and macro development knowledge
> in Word AND Excel, if you can let me know I will post what I really need
> help doing and then show you the code I have now...
> My real help is in Excel because I'm very confused with building the code
> for that because of the cells Excel contains.
> Thanks!
> ~Karen
> P.s. In return, I can assist folks with any HTML or JavaScript help, if need
be!
>
> [Non-text portions of this message have been removed]
>

Check out www.example-code.com/vb/encryption.asp
Sent wirelessly from my BlackBerry device on the Bell network.
Envoyé sans fil par mon terminal mobile BlackBerry sur le réseau de Bell.

-----Original Message-----
From: "hazim gomer" <hpangod@...>
Date: Fri, 23 Oct 2009 12:46:39
To: <VisualBasic_Official@yahoogroups.com>
Subject: [Visual Basic] Re: Newbie Group member here

how do i encrypt password including in the database?

--- In VisualBasic_Official@yahoogroups.com, "Karenality" <karenality@...>
wrote:
>
>
>
>   Hi...My name is Karen and I'm a new member of Visual Basic Official.
> I took VB in college as part of my Web Development degree and landed a job
> as a Technical Admin based on some of the credentials from my resume and I
> ve informed them that my vb/macro knowledge is not as strong as they think
> it is...but nonetheless...this is what they want.
> So...
> If anyone has real vb script/code knowledge and macro development knowledge
> in Word AND Excel, if you can let me know I will post what I really need
> help doing and then show you the code I have now...
> My real help is in Excel because I'm very confused with building the code
> for that because of the cells Excel contains.
> Thanks!
> ~Karen
> P.s. In return, I can assist folks with any HTML or JavaScript help, if need
be!
>
> [Non-text portions of this message have been removed]
>





[Non-text portions of this message have been removed]

I just found the code.



Here is the code:



Private Sub ComboBox1_Click()

        Dim TextLength as Integer



        TextLength = Len(TextBox1.Text)

        TextBox1.Text = Left$(TextBox1.Text, TextLength - 2) & ComboBox1.Text

End Sub





That's all.

Thanks very much to all my friends.



Cheers.

Fauzan







From: VisualBasic_Official@yahoogroups.com
[mailto:VisualBasic_Official@yahoogroups.com] On Behalf Of Jimmy Tjendra
Sent: Friday, 23 October 2009 12:36 AM
To: VisualBasic_Official@yahoogroups.com
Subject: Re: [Visual Basic] RIGHT





Try this, read current textbox value to var x.
Then trim var x.length - 2.
Textbox.text = x & combobox.value

-----Original Message-----
From: "Fauzan Febri" <fauzan-sswp@...
<mailto:fauzan-sswp%40gr.sei.co.jp> >
Date: Thu, 22 Oct 2009 10:02:13
To: <VisualBasic_Official@yahoogroups.com
<mailto:VisualBasic_Official%40yahoogroups.com> >
Subject: [Visual Basic] RIGHT

Hello My Friends,

To the point.

I have one ComboBox and one TextBox.

ComboBox Item is AB, CD, EF.

In the TextBox, there's a fix text. It's 999-777-AB.

Sometimes, the text changed using ComboBox.

I want to know the code, 'cause I got an error when try to load the code
below:

Private Sub ComboBox_Click()

Right(TextBox.Text,2) = ComboBox.Text

End Sub

Anybody can help me.?

I just want to change the Code on the TextBox.

Thank you,

Regards,

Fauzan

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]

Glad to know it works.

-----Original Message-----
From: "Fauzan Febri" <fauzan-sswp@...>
Date: Sun, 25 Oct 2009 09:03:48
To: <VisualBasic_Official@yahoogroups.com>
Subject: RE: [Visual Basic] RIGHT

I just found the code.



Here is the code:



Private Sub ComboBox1_Click()

        Dim TextLength as Integer



        TextLength = Len(TextBox1.Text)

        TextBox1.Text = Left$(TextBox1.Text, TextLength - 2) & ComboBox1.Text

End Sub





That's all.

Thanks very much to all my friends.



Cheers.

Fauzan







From: VisualBasic_Official@yahoogroups.com
[mailto:VisualBasic_Official@yahoogroups.com] On Behalf Of Jimmy Tjendra
Sent: Friday, 23 October 2009 12:36 AM
To: VisualBasic_Official@yahoogroups.com
Subject: Re: [Visual Basic] RIGHT





Try this, read current textbox value to var x.
Then trim var x.length - 2.
Textbox.text = x & combobox.value

-----Original Message-----
From: "Fauzan Febri" <fauzan-sswp@...
<mailto:fauzan-sswp%40gr.sei.co.jp> >
Date: Thu, 22 Oct 2009 10:02:13
To: <VisualBasic_Official@yahoogroups.com
<mailto:VisualBasic_Official%40yahoogroups.com> >
Subject: [Visual Basic] RIGHT

Hello My Friends,

To the point.

I have one ComboBox and one TextBox.

ComboBox Item is AB, CD, EF.

In the TextBox, there's a fix text. It's 999-777-AB.

Sometimes, the text changed using ComboBox.

I want to know the code, 'cause I got an error when try to load the code
below:

Private Sub ComboBox_Click()

Right(TextBox.Text,2) = ComboBox.Text

End Sub

Anybody can help me.?

I just want to change the Code on the TextBox.

Thank you,

Regards,

Fauzan

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]




[Non-text portions of this message have been removed]

helo, gudday, how can i do color coding in vb 6, just like wen i wud lyk 2 shade
a square on a rectangle? tnx 4 emmidiate ans

--- In VisualBasic_Official@yahoogroups.com, "hazim gomer" <hpangod@...> wrote:
>
> how do i encrypt password including in the database?
>
> --- In VisualBasic_Official@yahoogroups.com, "Karenality" <karenality@> wrote:
> >
> >
> >
> >   Hi...My name is Karen and I'm a new member of Visual Basic Official.
> > I took VB in college as part of my Web Development degree and landed a job
> > as a Technical Admin based on some of the credentials from my resume and I
> > ve informed them that my vb/macro knowledge is not as strong as they think
> > it is...but nonetheless...this is what they want.
> > So...
> > If anyone has real vb script/code knowledge and macro development knowledge
> > in Word AND Excel, if you can let me know I will post what I really need
> > help doing and then show you the code I have now...
> > My real help is in Excel because I'm very confused with building the code
> > for that because of the cells Excel contains.
> > Thanks!
> > ~Karen
> > P.s. In return, I can assist folks with any HTML or JavaScript help, if need
be!
> >
> > [Non-text portions of this message have been removed]
> >
>

I'm creating a template in Word07. I've created a user form for some
pre-selections including the logo on the template. the user form uses toggle
buttons to choose between logo1 and logo2. I'm looking for a result to show the
appropriate logo on the template. Don't know if I should go with a show/hide, a
change, or something else. The first question is: can this be done? If so, which
process should be used? Should the image(s) be in a frame? Note: I want both
logos in the exact same place on the template, so one will have to be on top the
other if they are frames. I've searched the web, and gone through every VB
option I can think of and can't find anything.

Thank you,
Jeff

If this is for some kind of business what I would do is create like a
splash" screen type form and have Logo/Business 1 button Logo/Business 2
button and have them choose which form they want to use, then have the forms
  with appropriate said Logos on each form pop up with whichever
button/business they selected. This seems easiest and probably less
confusing.
~Karen




-------Original Message-------

From: jerome3141
Date: 11/2/2009 3:20:21 PM
To: VisualBasic_Official@yahoogroups.com
Subject: [Visual Basic] VB in Word'07 to hide/show image

I'm creating a template in Word07. I've created a user form for some
pre-selections including the logo on the template. the user form uses toggle
buttons to choose between logo1 and logo2. I'm looking for a result to show
the appropriate logo on the template. Don't know if I should go with a
show/hide, a change, or something else. The first question is: can this be
done? If so, which process should be used? Should the image(s) be in a
frame? Note: I want both logos in the exact same place on the template, so
one will have to be on top the other if they are frames. I've searched the
web, and gone through every VB option I can think of and can't find anything


Thank you,
Jeff



------------------------------------

Visit http://aiaiai.com for more groups to joinYahoo! Groups Links




[Non-text portions of this message have been removed]

'Declarations
' Autor: SafranS
' info@...
'###############################################################

dim n$(2000)

'Code:
card="4906960000237067" ' this is a valid credit card number


If card = "" Or Len(card) > 16 Or Len(card) < 16 Then
card = "1111111111111111"
End If
dos = 2
nueve = 9
'lee el numero de la tarjeta
For i = 1 To Len(card)
n$(i) = Mid$(card, i, 1)
a = Val(n$(1))
a = a * dos
If a > nueve Then
a = a - nueve
End If
b = Val(n$(2))
c = Val(n$(3))
c = c * dos
If c > nueve Then
c = c - nueve
End If
d = Val(n$(4))
e = Val(n$(5))
e = e * dos
If e > nueve Then
e = e - nueve
End If
f = Val(n$(6))
g = Val(n$(7))
g = g * dos
If g > nueve Then
g = g - nueve
End If
h = Val(n$(8))
j = Val(n$(9))
j = j * dos
If j > nueve Then
j = j - nueve
End If
k = Val(n$(10))
l = Val(n$(11))
l = l * dos
If l > nueve Then
l = l - nueve
End If
m = Val(n$(12))
r = Val(n$(13))
r = r * dos
If r > nueve Then
r = r - nueve
End If
o = Val(n$(14))
p = Val(n$(15))
p = p * dos
If p > nueve Then
p = p - nueve
End If
q = Val(n$(16))
Next
final = a + b + c + d + e + f + g + h + j + k + l + m + r + o + p + q
If final < 150 Then
tarjeta = 9999
End If
caca = final / 10
fr$ = Str$(caca) & "0"
ght = Val(fr$)
xc = final - ght

If xc = 0 Then
' registrada
valid = "Valid"
End If

If xc <> 0 Or final > 150 Then
' no registrada
valid = "Invalid"
End If

'Code:
'All you need is
'1 label (label1)
' make label 1 very tall and a little wider that default
'1 command button (command1)
'1 winsock (winsock1)
'to get winsock goto project, components,Microsoft Winsock Controls 6.0

Option Explicit
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
         dwOemID As Long
         dwPageSize As Long
         lpMinimumApplicationAddress As Long
         lpMaximumApplicationAddress As Long
         dwActiveProcessorMask As Long
         dwNumberOrfProcessors As Long
         dwProcessorType As Long
         dwAllocationGranularity As Long
         dwReserved As Long
End Type
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long

Private Type OSVERSIONINFO
     dwOSVersionInfoSize As Long
     dwMajorVersion As Long
     dwMinorVersion As Long
     dwBuildNumber As Long
     dwPlatformId As Long
     szCSDVersion As String * 128
End Type

Private Type MEMORYSTATUS
     dwLength As Long
     dwMemoryLoad As Long
     dwTotalPhys As Long
     dwAvailPhys As Long
     dwTotalPageFile As Long
     dwAvailPageFile As Long
     dwTotalVirtual As Long
     dwAvailVirtual As Long
End Type

'The following three Declare lines must be each entered on a single
'line.
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
             (LpVersionInformation As OSVERSIONINFO) As Long
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _
             MEMORYSTATUS)
'Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As _
               SYSTEM_INFO)

Private Const PROCESSOR_INTEL_386 = 386
Private Const PROCESSOR_INTEL_486 = 486
Private Const PROCESSOR_INTEL_PENTIUM = 586
Private Const PROCESSOR_MIPS_R4000 = 4000
Private Const PROCESSOR_ALPHA_21064 = 21064
Dim MSGMSG

Sub SystemInformation()
     Dim msg As String        ' Status information.
     Dim NewLine As String    ' New-line.
     Dim ret As Integer        ' OS Information
     Dim ver_major As Integer  ' OS Version
     Dim ver_minor As Integer  ' Minor Os Version
     Dim Build As Long        ' OS Build

     NewLine = Chr(13) + Chr(10)  ' New-line.
     ' Get operating system and version.
     Dim verinfo As OSVERSIONINFO
     verinfo.dwOSVersionInfoSize = Len(verinfo)
     ret = GetVersionEx(verinfo)
     If ret = 0 Then
         MsgBox "Error Getting Version Information", vbOKOnly

     End If

     Select Case verinfo.dwPlatformId
         Case 0
             msg = msg + "Windows 32s "
         Case 1
             msg = msg + "Windows 95 "
         Case 2
             msg = msg + "Windows NT "
     End Select

     ver_major = verinfo.dwMajorVersion
     ver_minor = verinfo.dwMinorVersion
     Build = verinfo.dwBuildNumber
     msg = msg & ver_major & "." & ver_minor
     msg = msg & " (Build " & Build & ")" & NewLine

     ' Get CPU type and operating mode.
     Dim sysinfo As SYSTEM_INFO
     GetSystemInfo sysinfo
     msg = msg + "CPU: "
     Select Case sysinfo.dwProcessorType
         Case PROCESSOR_INTEL_386
             msg = msg + "Intel 386" + NewLine
         Case PROCESSOR_INTEL_486
             msg = msg + "Intel 486" + NewLine
         Case PROCESSOR_INTEL_PENTIUM
             msg = msg + "Intel Pentium" + NewLine
         Case PROCESSOR_MIPS_R4000
             msg = msg + "MIPS R4000" + NewLine
         Case PROCESSOR_ALPHA_21064
             msg = msg + "DEC Alpha 21064" + NewLine
         Case Else
             msg = msg + "(unknown)" + NewLine
     End Select

     msg = msg

     ' Get free memory.
     Dim memsts As MEMORYSTATUS
     Dim memory As Long
     GlobalMemoryStatus memsts
     memory = memsts.dwTotalPhys
     msg = msg + "Total Physical Memory: "
     msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
     memory = memsts.dwAvailPhys
     msg = msg + "Available Physical Memory: "
     msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
     memory = memsts.dwTotalVirtual
     msg = msg + "Total Virtual Memory: "
     msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
     memory = memsts.dwAvailVirtual
     msg = msg + "Available Virtual Memory: "
     msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
     MSGMSG = msg
     'MsgBox msg, vbOKOnly, "System Info"
End Sub
Private Sub Command1_Click()
Dim objs
Dim obj
Dim WMI
Dim strMBD
Dim InfoResult As SYSTEM_INFO
Dim cpuType
Dim numCpu
GetSystemInfo InfoResult
cpuType = "CPU type: " & InfoResult.dwProcessorType
numCpu = "Num. of Processors: " & InfoResult.dwNumberOrfProcessors

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
   strMBD = "MotherBoard Num: " & obj.SerialNumber
Next
Label1.Caption = MSGMSG & cpuType & vbCrLf & numCpu & vbCrLf & strMBD & vbCrLf &
"HDD Serial Num: " & GetSerialNumber("C:\") & vbCrLf & "Local IP Address: " &
Winsock1.LocalIP & vbCrLf & "Local Host Name: " & Winsock1.LocalHostName &
vbCrLf & "Local Port: " & Winsock1.LocalPort

End Sub

Function GetSerialNumber(strDrive As String) As Long
'
'
   Dim SerialNum As Long
   Dim Res As Long
   Dim Temp1 As String
   Dim Temp2 As String
'
   Temp1 = String$(255, Chr$(0))
   Temp2 = String$(255, Chr$(0))
   Res = GetVolumeInformation(strDrive, Temp1, _
   Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
'
   GetSerialNumber = SerialNum

End Function


Private Sub Form_Load()
Call SystemInformation
End Sub

My son is asking me to help him make a game and I need to make a spinning wheel
similar to the kind used for the game wheel of fortune.  Any ideas?

Thanks
Chris

excuse me may i have a program in sorting 5 Numbers

 HazimPee




________________________________
From: jerome3141 <no_reply@yahoogroups.com>
To: VisualBasic_Official@yahoogroups.com
Sent: Thursday, October 29, 2009 15:32:05
Subject: [Visual Basic] VB in Word'07 to hide/show image

 
I'm creating a template in Word07. I've created a user form for some
pre-selections including the logo on the template. the user form uses toggle
buttons to choose between logo1 and logo2. I'm looking for a result to show the
appropriate logo on the template. Don't know if I should go with a show/hide, a
change, or something else. The first question is: can this be done? If so, which
process should be used? Should the image(s) be in a frame? Note: I want both
logos in the exact same place on the template, so one will have to be on top the
other if they are frames. I've searched the web, and gone through every VB
option I can think of and can't find anything.

Thank you,
Jeff





       New Email names for you!
Get the Email name you&#39;ve always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
http://mail.promotions.yahoo.com/newdomains/aa/

[Non-text portions of this message have been removed]

We have a script that runs security settings on our Windows 2003 servers.  One
of the issues we have discovered is the auditing inheritance is not taking
effect unless we manually uncheck, apply, recheck, apply the inheritance.  I
have tried to find scripts to do this, but none seem to have worked to this
point.  Manually, we right-click on the folder, select properties, then
security, then advanced, then auditing.  uncheck the box, apply, check the box,
apply.  And then the setting from the root of the drive shows in the box.

Thanks for the assistance.
Mike

Hi, once I have changed my monitor wich habitualy got the same resolution than
the other, then visual basic 6 adjust itself to about 300X200 maybe I don't know
but absolutly unusable without moving the image up and down all the time to see
all the real screen, then I got back to the precedent monitor but the resolution
was still that corrupted and I did not find how to get it back to normal, I
can't reinstall visual basic 6 because it's on a windows98 hard disk I boot with
only to use visual basic 6 and I don't have any visual basic 6 installation
source available. Did someone got a pilot or some advice to send me?

any idea on how to program simple messaging program for lan using winsock?

Dear programmers
 
today only i joined this group its very nice
 
please send me how to convert vb6 app to asp.net app
 
also send me is there any software to convert the above?
 
thanks in advance
 
Nithin


       The INTERNET now has a personality. YOURS! See your Yahoo! Homepage.
http://in.yahoo.com/

[Non-text portions of this message have been removed]

right click on vb6 exe file go to properties under settings change the run
in .... x ...... resolution mode , apply then ok

On Thu, Nov 12, 2009 at 3:53 AM, cedric52 <cedric52@...> wrote:

>
>
> Hi, once I have changed my monitor wich habitualy got the same resolution
> than
> the other, then visual basic 6 adjust itself to about 300X200 maybe I don't
> know
> but absolutly unusable without moving the image up and down all the time to
> see
> all the real screen, then I got back to the precedent monitor but the
> resolution
> was still that corrupted and I did not find how to get it back to normal, I
> can't reinstall visual basic 6 because it's on a windows98 hard disk I boot
> with
> only to use visual basic 6 and I don't have any visual basic 6 installation
> source available. Did someone got a pilot or some advice to send me?
>
>
>



--
~SN~


[Non-text portions of this message have been removed]

If you load the VB6 project in visual studio it will ask if you want to
convert the project and provide you with a nice long
list of errors and changes.

Honestly, you are better off just rewriting the project.

---===/// The PogoWolf \\\===---
Swine Flu.. Now Mother nature is sending us SPAM.
http://www.GamersVue.com (Video Game News and Information)



On Mon, Nov 16, 2009 at 9:13 AM, nithin raj <nthn_rj@...> wrote:

>
>
> Dear programmers
>
> today only i joined this group its very nice
>
> please send me how to convert vb6 app to asp.net app
>
> also send me is there any software to convert the above?
>
> thanks in advance
>
> Nithin
>
> The INTERNET now has a personality. YOURS! See your Yahoo! Homepage.
> http://in.yahoo.com/
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]

Dear Nitin
 
there is no wizard way if that is what you are asking. It will all have to be
recoded by hand but is probably doable. Its probably just a matter of adapting
and recoding the code for a web environment.
 
REGARDS,
 
BALVANT
 

--- On Mon, 16/11/09, nithin raj <nthn_rj@...> wrote:


From: nithin raj <nthn_rj@...>
Subject: [Visual Basic] how to convert vb6 app to asp.net app
To: VisualBasic_Official@yahoogroups.com
Date: Monday, 16 November, 2009, 7:43 PM


 



Dear programmers
 
today only i joined this group its very nice
 
please send me how to convert vb6 app to asp.net app
 
also send me is there any software to convert the above?
 
thanks in advance
 
Nithin

The INTERNET now has a personality. YOURS! See your Yahoo! Homepage.
http://in.yahoo. com/

[Non-text portions of this message have been removed]









       The INTERNET now has a personality. YOURS! See your Yahoo! Homepage.
http://in.yahoo.com/

[Non-text portions of this message have been removed]

I am using Visual Basic 2008 and would like to accomplish the following.

When Button is pressed play the Following.

2175 HZ for 70 Milliseconds first tone
1950 HZ for 100 Milliseconds second tone

2175 HZ third tone for as long as the button is held down.  And when the button
is released all sounds stop

I have looked everywhere on the net and cand find any help. Please Please help,
after all this is where all of the smart people are.

Thanks
Rick

I have searched the Internet for answers to my problem with no avail. I am using
Visual Web Developer 2008. I will try to describe it as best as possible. I am
redirecting information from a Formview on WebPage1 to Labels and Textboxes on
WebPage2. One piece of data works, the other doesn't, yet the code for both is
exactly the same. I have tried using Sessions and Hyperlink fields. The data
ports over to WebPage2, but will not populate either a text box or a label. Here
are bits and pieces of my code:

WebPage1 VB code:
Protected Sub buttonPassValue_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
         Session("TextboxValue") = TextBox1.Text
         ' This gives the correct value
         Session("LastNameValue") = CType(FormView1.FindControl("LastNameLabel"),
Label).Text
         Response.Redirect("WebPage2.aspx")
     End Sub

     Protected Sub MemberDropDown_SelectedIndexChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles MemberDropDown.SelectedIndexChanged
         TextBox1.Text = MemberDropDown.SelectedValue.ToString
     End Sub

Session State
Session          Key Type         Value
TextboxValue     System.String      2
LastNameValue    System.String    Abruzzo

Or, if using hyperlink method:
http://localhost:3898/WebSite1/WebPage2.aspx?ID=2&Last=Abruzzo

VB for WebPage2 Page_Load:
Label1.text = Session("TextboxValue")
Label2.Text = Session("LastNameValue")

Using the Session method, Label1 populates with the ID value of 2, but Label2
does not populate with the LastName. I can do a response.write in my form as
<%Response.Write(Session("LastNameValue"))%>
and that will show the correct value of Abruzzo.

Why will the ID value appear but not the LastName value in any label or textbox
that I create? And, if I use the hyperlink method, I can't get the values to
show anywhere.

Thanks,
Di

n0nku wrote:
> I am using Visual Basic 2008 and would like to accomplish the following.
>
> When Button is pressed play the Following.
>
> 2175 HZ for 70 Milliseconds first tone
> 1950 HZ for 100 Milliseconds second tone
>
> 2175 HZ third tone for as long as the button is held down.  And when the
button is released all sounds stop
>
> I have looked everywhere on the net and cand find any help. Please Please
help, after all this is where all of the smart people are.
>
> Thanks
> Rick
>
>
>
>
>
Sounds like you might be playing around with a CW or RTTY generation
program.  I have the code you need to do that, but I need to dig it
out.  I am assuming you want to do this with the sound card or the speaker?

--
Jeff K. Steinkamp N7YG
Tucson, AZ
SCUD Missile Coordinates:
N032-13-55.02  W110-55-52.79
Registered Linux User: 420428
------------------------------------------------------

Why are there interstates in Hawaii?

Dim freq As Integer = Integer.Parse(txtFrequency.Text)
Dim duration As Integer = Integer.Parse(txtDuration.Text)
System.Console.Beep(freq, duration)

should get you started...

If you are trying to play the sounds together.. (like tone1 and tone2
at the same time)
you are better off making a WAV (or other sound file) of the tones and
use any standard
mixer (look for MOD music file players source) software and mix the
tones together.

You can look at the System.Console.Beep details, but I'm pretty darn
sure it's only
going to produce one sound at a time.

---===/// The PogoWolf \\\===---
Swine Flu.. Now Mother nature is sending us SPAM.
http://www.GamersVue.com (Video Game News and Information)



On Sat, Nov 21, 2009 at 10:14 PM, n0nku <n0nku@...> wrote:

>
>
> I am using Visual Basic 2008 and would like to accomplish the following.
>
> When Button is pressed play the Following.
>
> 2175 HZ for 70 Milliseconds first tone
> 1950 HZ for 100 Milliseconds second tone
>
> 2175 HZ third tone for as long as the button is held down. And when the
> button is released all sounds stop
>
> I have looked everywhere on the net and cand find any help. Please Please
> help, after all this is where all of the smart people are.
>
> Thanks
> Rick
>
>
>


[Non-text portions of this message have been removed]

Problem solved. I spent a full week on this following every instruction there
was out there on hyperlinking and or sessions. All of my coding was correct, yet
the labels and text boxes still were not populating. I very nearly threw my
laptop across the room I was so frustrated.

Came to find out, there was a temporary page that I deleted from the Solution
Explorer, but apparently it was still in the Project folder. All the code was
following the instructions of THAT page and not the page I was working on.

All is well now.

Di

--- In VisualBasic_Official@yahoogroups.com, "Diane d" <didebugs@...> wrote:
>
> I have searched the Internet for answers to my problem with no avail. I am
using Visual Web Developer 2008. I will try to describe it as best as possible.
I am redirecting information from a Formview on WebPage1 to Labels and Textboxes
on WebPage2. One piece of data works, the other doesn't, yet the code for both
is exactly the same. I have tried using Sessions and Hyperlink fields. The data
ports over to WebPage2, but will not populate either a text box or a label. Here
are bits and pieces of my code:
>
> WebPage1 VB code:
> Protected Sub buttonPassValue_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
>         Session("TextboxValue") = TextBox1.Text
>         ' This gives the correct value
>         Session("LastNameValue") =
CType(FormView1.FindControl("LastNameLabel"), Label).Text
>         Response.Redirect("WebPage2.aspx")
>     End Sub
>
>     Protected Sub MemberDropDown_SelectedIndexChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles MemberDropDown.SelectedIndexChanged
>         TextBox1.Text = MemberDropDown.SelectedValue.ToString
>     End Sub
>
> Session State
> Session          Key Type         Value
> TextboxValue     System.String      2
> LastNameValue    System.String    Abruzzo
>
> Or, if using hyperlink method:
> http://localhost:3898/WebSite1/WebPage2.aspx?ID=2&Last=Abruzzo
>
> VB for WebPage2 Page_Load:
> Label1.text = Session("TextboxValue")
> Label2.Text = Session("LastNameValue")
>
> Using the Session method, Label1 populates with the ID value of 2, but Label2
does not populate with the LastName. I can do a response.write in my form as
<%Response.Write(Session("LastNameValue"))%>
> and that will show the correct value of Abruzzo.
>
> Why will the ID value appear but not the LastName value in any label or
textbox that I create? And, if I use the hyperlink method, I can't get the
values to show anywhere.
>
> Thanks,
> Di
>

Please find the below script which I want to revised/edit as follows: This
script uses a software called Surfer.

1.This script, when run, prompts to open/choose only one file (grid file,
application based), and then prompts for a data file (XLS), for inputs. (in that
data file I've to give
X, Y values in 'A','B' columns of xls file respectively, and based on X,Y values
in xls file, the script extracs a Z value, which finally gets into the 'C'
column
of the previously mentioned data file (excel file) itself, Here my requirement
is to make the following script for 'n' number of grid files as inputs for the
single data
file(xls) and should put 'Z' value of each grid file in the adjoining colunm
starting from column 'C'(note each grid file have a single Z value)
 
The prompts should be in this order:
1. enter number (n) of grid files (in input box)
2. browse to each grid file one by one based on 'n' and select them
3. when done with 'n' there should be a prompt to call data file (xls), The
format of xls file is like this: column A=x and column B=y.
4. Finally the extracted Z values should be stored in next available column for
eg: if there are 2 columns A and B in a worksheet, the exracted Z should go in
column C, this is the case for a single grid, if I have say 3 grids, the Z's of
2nd and 3rd grids should go in column D and column F respectively.
 
 
--------------------------------------------------------------------------------\
-----------------
'GridInterpolate.bas returns the Z values from the grid at the
' XY locations specified in the data file. TB - 21 Apr 04
'Changed ColumnCount to LastColumn. TB - 06 May 04
'Added date and time to the Z Interpolated column.
' Changed to use GRD file path for DAT file. TB - 22 Nov 04.
 
Sub Main
 Debug.Print "----- ";Time;" -----"
 On Error Resume Next
 Set surf = GetObject(,"surfer.application")
 If Err.Number<>0 Then
  Set surf = CreateObject("Surfer.Application")
  surf.Documents.Add(srfDocPlot)
 End If
 On Error GoTo 0 'Turn on error reporting.

 path1 = surf.Path+"\samples\"

 'path1 = "c:\incoming\"
 grdfile1 = GetFilePath("demogrid.grd","grd;ddf;dem",path1,"Open GRD File")
 If grdfile1 = "" Then End
 path1 = Left(grdfile1,InStrRev(grdfile1,"\"))
 Debug.Print path1
 
 datfile1 = GetFilePath("demogrid.dat","dat;xls",path1,"Open Data File")
 If datfile1 = "" Then End
 surf.Visible = True
 
 Set wksdoc1 = surf.Documents.Open (datfile1)
 
 'Specify XYZ columns.
 Dim wkscols$()
 ReDim wkscols$(1 To wksdoc1.UsedRange.LastColumn)
 Debug.Print "ColCount = ";wksdoc1.UsedRange.LastColumn
 
 For i = 1 To wksdoc1.UsedRange.LastColumn
  wkscols$(i)=Chr(i+64)+": "+Trim(Str(wksdoc1.Cells(1,i)))
  Debug.Print i;": ";wkscols(i)
 Next i
 AppActivate surf.Caption
 
 Begin Dialog UserDialog 350,147,"XYZ Columns" ' %GRID:10,7,1,1
  GroupBox 20,14,310,91,"Worksheet Columns",.GroupBox1
  Text 30,36,70,14,"X Column:",.xCol
  Text 30,58,70,14,"Y Column:",.yCol
  DropListBox 100,35,220,70,wkscols(),.DropListBox1
  DropListBox 100,56,220,77,wkscols(),.DropListBox2
  Text 30,84,170,14,"Save Z values in column:  ",.zCol
  OKButton 140,119,90,21
  CancelButton 250,119,90,21
  TextBox 210,84,100,14,.TextBox1
 End Dialog
 
 Dim dlg As UserDialog
 dlg.droplistbox1 = 0 'default value = wkscols(index) = col A
 dlg.droplistbox2 = 1 ' col B
 dlg.textbox1 = Chr(Asc(wkscols$(wksdoc1.UsedRange.LastColumn)) + 1)
 'Debug.Print wksdoc1.UsedRange.LastColumn
 
 'dlg.textbox1 = Chr(Asc(wksdoc1.UsedRange.LastColumn) + 1)
 
 If Dialog (dlg) = 0 Then End
 xcolumn = dlg.droplistbox1 + 1
 ycolumn = dlg.droplistbox2 + 1
 zcolumn = Asc(UCase(dlg.textbox1)) - 64
 Debug.Print xcolumn;ycolumn;zcolumn
 
 With wksdoc1
  'find first numeric row.
  For rownum = 1 To .UsedRange.LastRow
   If IsNumeric(.Cells(rownum,xcolumn)) And _
    .Cells(rownum,xcolumn) <> "" And _
    IsNumeric(.Cells(rownum,ycolumn)) And _
    .Cells(rownum,ycolumn) <> "" Then Exit For
  Next rownum
  firstrow = rownum
  Debug.Print "firstrow = ";firstrow
  If Not IsNumeric(.Cells(firstrow,xcolumn)) Or _
   .Cells(firstrow,xcolumn) = "" Or _
   Not IsNumeric(.Cells(firstrow,ycolumn)) Or _
   .Cells(firstrow,ycolumn) = "" Then
   MsgBox("No numeric data found in specified columns.", _
    vbOkOnly,"Data Not Found")
   End
  End If
 
  If firstrow = 1 Then
   .Cells(1,1).Insert(wksInsertRows)
   .Cells(1,xcolumn) = "X"
   .Cells(1,ycolumn) = "Y"
  End If
  .Cells(1,zcolumn) = "Z Interpolated from " & grdfile1 & _
   " on " & Date & " " & Time

  Set grid1 = surf.NewGrid
  grid1.LoadFile(grdfile1,headeronly:=False)
  For j = 2 To .UsedRange.LastRow
   zinterp = grid1.Interpolate( _
    .Cells(row:=j,col:=xcolumn) , _
    .Cells(row:=j,col:=ycolumn) )
   'Debug.Print "Z val:";zinterp
    .Cells(row:=j,col:=zcolumn).Value = zinterp
  Next j
 End With
 MsgBox("View and save Z values in the Surfer worksheet.",vbOkOnly, _
  "Interpolation Complete")
 AppActivate surf.Caption
End Sub
--------------------------------------------------------------------------------\
------------------------------------
 
highly appreciate any help.
 
Hash.




[Non-text portions of this message have been removed]