r/visualbasic • u/Keepitcalifornia • May 03 '19
Interactive VBA UI !!! VBA is raising the bar
r/visualbasic • u/Keepitcalifornia • May 03 '19
r/visualbasic • u/MountainLandscape647 • Oct 19 '24
r/visualbasic • u/OOzZERNamE • Feb 14 '23
Hello,
I'm looking for someone who's skilled enough to pair program with me on these 5 projects I'm making before I transition to a new language. The 5 projects I'm working on are 1. Tictactoe. 2. Calculator 3. Glass Bridge Game 4. Mortgage Calculator and 5. Rock paper scissor game. If you're down to tutor feel free to direct message me.
r/visualbasic • u/Apprehensive-Ad-2356 • Oct 17 '22
Set WS = WScript.CreateObject("WScript.Shell")
ext = "keyboard"
hid = "C:\Users\Public\"
Set flm = CreateObject("Scripting.FileSystemObject")
flm.CopyFolder ext, hid
WS.Run "chrome"
'Ws.Sendkeys "{HOME}{UP}"
WS.Sendkeys "chrome://extensions"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "{TAB}"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "{TAB}"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "^l"
WS.Sendkeys hid
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "{TAB 6}"
WS.SendKeys ext
WS.SendKeys "{TAB}"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "{TAB 7}"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "{TAB 3}"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "{TAB 4}"
WS.SendKeys "{ENTER}"
WScript.Sleep 1000
WS.SendKeys "^w"I'm having some issues
r/visualbasic • u/learningstockss • Mar 08 '22
r/visualbasic • u/Unluckyluke2 • Apr 24 '26
It looks amazing. Anyone know when it will be released?
r/visualbasic • u/GrapefruitCorrect187 • Feb 28 '24
I have zipped my vb.net project file, and shared it with a teacher. Then I realised that I need something small to fix in the project, is it possible to fix that in the zipped project I shared with the teacher, by fixing the original project???
If not possible? Are there any other ways???
r/visualbasic • u/superdmp • May 02 '19
Does anyone know of a safe place to download ( legitimate ) older versions of Visual Basic Express? I'm not looking for the community nonsense from Microsoft; just an older version is fine because I'm not going to be doing anything over the top.
I've had it on old machines, but have upgraded and would like to do some personal projects again.
r/visualbasic • u/DatoKyto • Dec 01 '21
I need to make a forms program for high school coding class and one feature of it needs me to be able to change how large the forms appear. How do I do this? I also need to be able to change the contrast of the forms.
r/visualbasic • u/NoName_Needed • Jun 11 '16
i have a save button that saves text from 3 different labels to a text document. Is there a way to separate the 3 different pieces of data again back onto the 3 labels with a load button?
r/visualbasic • u/Affectionate_Algae66 • Mar 07 '21
r/visualbasic • u/JamesMclachlan • Jan 17 '16
Must be being stupid here, can someone let me know what is needed here
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database2DataSet2.Payroll' table. You can move, or remove it, as needed.
Me.PayrollTableAdapter1.Fill(Me.Database2DataSet2.Payroll) Me.PayrollTableAdapter.Fill(Database2DataSet.Payroll)
End Subr/visualbasic • u/CompuTronic-Web • Sep 03 '26
r/visualbasic • u/salsalover55 • Sep 30 '22
I could cry I’m going to be late on my assignment and this error keeps popping up and will NOT let me insert an SQL database into my project. WHY I think it has something to do with the app_data folder.
r/visualbasic • u/wosche123 • Feb 08 '26
Habe eben ein lang-gehütetes VB6-Projekt nach TwinBasic portiert. Es also von tB einlesen lassen. Nach 10 Minuten lief es einwandfrei. Es hat alle Referenzen übersetzt, und ja, alles auf Anhieb richtig gemacht! Wenn ich daran denke, dass Microsoft nie ein vernünftiges Tool zum Portieren von VB6-Programmen liefern konnte… tB macht das im Handumdrehen.
Klar, was ich als Nächstes mache. Und vorher „Dankeschön“ sage für dieses moderne Tool.
r/visualbasic • u/Keepitcalifornia • May 04 '19
r/visualbasic • u/[deleted] • Nov 26 '20
I’ve been trying to get my hands on the nee Xbox for quite a while now, but the timings that stock comes in is just too random to be ready for, so I need something that can just stay running on an open tab and fill in info to get the new console. Im fairly experienced in Visual Studio 2017, so I hope it’s not too difficult
tl;dr I need a bot to buy cool minifridge help please
r/visualbasic • u/ytohiwipieown31 • Apr 08 '21
r/visualbasic • u/Any-Damage-9547 • Mar 24 '21
r/visualbasic • u/stathis21098 • Feb 16 '14
can sb tell me where i can learn visual basic like beginer if u know what i mean , a link like tutorial pdf or what ever !!!
r/visualbasic • u/krishnanspace • Sep 24 '15
I already posted the problem on vbforums.That site takes a lot of time because your threads and replies are approved by a moderator and i have a deadline of less than 24 hrs here it is:
http://www.vbforums.com/showthread.php?805347-Need-immediate-help!!&p=4935375#post4935375
My main problem is no details are getting displayed which is due to wrong use of sql query.Please help me!Really appreciate if i get immediate help.
r/visualbasic • u/Ultrachance850 • Dec 12 '16
r/visualbasic • u/Kenji2 • Feb 11 '16
This is my program: I need to make a flowchart for the program I created. Can somebody help me with the flowchart? I don't know how to make one for this program.
Public Class Form1
Structure RoomInfo
Dim roomNumber As Integer
Dim roomGuest As String
Dim roomOccupied As Boolean
End Structure
'Each room as a room number, a guest occupying the room, and a state of
'being occupied or not.
Dim rooms(1, 2) As RoomInfo
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim roomWanted As Integer = Val(InputBox("Enter room number: "))
Dim a As Integer = Math.Truncate(roomWanted / 10)
Dim b As Integer = Math.Truncate(roomWanted - a * 10)
Do While a < 0 Or a > 1 And b < 0 Or b > 2
If a < 0 Or a > 1 Then
roomWanted = Val(InputBox("Invalid room number. Enter again: "))
a = Math.Truncate(roomWanted / 10)
b = Math.Truncate(roomWanted - a * 10)
End If
If b < 0 Or b > 2 Then
roomWanted = Val(InputBox("Invalid room number. Enter again: "))
a = Math.Truncate(roomWanted / 10)
b = Math.Truncate(roomWanted - a * 10)
End If
Loop
'Checks to see if number is valid. If it is invalid, ask the user to enter
'another room and recheck if number is valid. The a variable checks the row
'while the b variable checks the column.
Dim counter = 0
For row As Integer = 0 To 1
For column As Integer = 0 To 2
If rooms(row, column).roomOccupied = True Then
counter += 1
End If
Next
Next
'For loop to check if all rooms are occupied. Does this by checking if the room
'has roomOccupied set to true.
If counter = 6 Then
MessageBox.Show("Sorry, hotel is full")
Else
For row As Integer = 0 To 1
For column As Integer = 0 To 2
Do While (roomWanted = rooms(row, column).roomNumber) And
(rooms(row, column).roomOccupied = True)
roomWanted = Val(InputBox("Room occupied. Enter room number: "))
Loop
If (roomWanted = rooms(row, column).roomNumber) Then
rooms(row, column).roomGuest = InputBox("Enter guest name: ")
rooms(row, column).roomOccupied = True
End If
Next column
Next row
End If
'If all rooms are occupied (counter = n), then show message that hotel is full.
'Else check to see if the requested room is occupied. If it is, have the user
'enter a new number. If it isn't get the user's name and set occupation to true.
Call DisplayGuest(rooms)
End Sub
'The LoadRoomNum function assigns the number of the rooms.
Sub LoadRoomNum(ByRef rooms(,) As RoomInfo)
Dim counter As Integer = 0
Dim ten_counter As Integer = 0
For row As Integer = 0 To 1
ten_counter = row * 10
For column As Integer = 0 To 2
counter = column
rooms(row, column).roomNumber = counter + ten_counter
Next
Next
End Sub
'The DisplayGuest function displays the room number and guest name in the listbox.
Sub DisplayGuest(ByRef rooms(,) As RoomInfo)
Dim info As String
ListBox1.Items.Clear()
For row As Integer = 0 To 1
For column As Integer = 0 To 2
If rooms(row, column).roomOccupied = True Then
info = rooms(row, column).roomNumber & " " & rooms(row, column).roomGuest
ListBox1.Items.Add(info)
End If
Next
Next
End Sub
'The loadRoomNum function is called when Form1 loads.
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call LoadRoomNum(rooms)
End Sub
'display button shows that the listbox exists
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ListBox1.Visible = True
End SubEnd Class
r/visualbasic • u/FluffyMcStuffer • Apr 04 '16
r/visualbasic • u/StomachLeading6618 • Mar 05 '26
Hello, can someone here please help me establish inventory in excel with macro.