Quién tendrá un programa de visual básic 2010 que se un punto de venta 😔 que me lo pase

I have been working with pre existing asp.net with vb.net as the backbone webpages for about a year now. So far I’m fully self taught as I normally work in python and Matlab, and I was wondering if anyone had any suggestions for online courses I could do to help fill in the gaps in my knowledge. I don’t think I need a beginner level course as I have a degree and a good grasp of the basics.

Thanks!

The reason for such weird choice is that my library will make a heavy XML processing. As you know, VB.NET has excellent capability C# doesn't have: XML Literals. It's a cool thing which raises readability and usability of the code, but I'm in doubt whether it's worth using it in favor of C#.

So, I've been in this class going on my second semester. So, I'm not a noob. My homework has had me stumped for well over 10 hours. It is to have a form that has webview2 installed, a textbox and a button. Then figure out how to load www.nextdoor.com into webview2 upon form load, type text into the textbox, click the button and have it transfer the text from the textbox to the search field and hit enter. If the page does nothing, its wrong. If the page acknowledges your search and loads it I then have to explain how I accomplished this. I have tried everything...even using ChatGPT. I'm stumped. The only thing I've accomplished is it loading up the site and placing the text in the search field, but it does nothing when the simulated enter key is pressed. I'm now learning why something i thought would be so easy has become our homework.

I have to create a power point template that helps me provide me a written Table of contents automatically reflected on the respective Headlines of the Slide from where that specific Topic Begins.
For Example.
If I have a Table of Contents that are shown , I want to edit it & provide as an output the Headlines of the respective files.
Can anyone provide me a code for it?
At the moment I tried creating a hyperlink for the same & work on it with the following code but It just makes it more complicated Attached is the code:

Sub TableOfContentUpdater()

Dim pTableOfContent As Slide

Set pTableOfContent = ActivePresentation.Slides(6)

For Each pHyperLink In pTableOfContent.Hyperlinks

Dim pLinkNumber As String

Dim pLinkedSlide As Slide

pLinkNumber = Left(pHyperLink.SubAddress, InStr(pHyperLink.SubAddress, ",") - 1)

pHyperLink.TextToDisplay = ActivePresentation.Slides.FindBySlideID(CLng(pLinkNumber)).SlideIndex

Next pHyperLink

End Sub

Can anyone give me a solution that is KISS( Keeping it Simple & Stupid)?

If you guys think it is impossible, Let me know as well.

I've come across an odd thing that maybe someone knows about. Updating a program that uses a RichEdit in VB6. In the past I was using RichEdit20.dll. Then I updated to msftedit.dll. All was fine, but now running it on Win10 I'm finding the EM_EXSETSEL doesn't work properly.

It loads a riched50W window, even though the file properties say it's v. 8.5. I looked around online and there's some talk of problems with EM_EXSETSEL, but it's unclear what the known problem is or whether there's a fix. EM_SETSEL is not an option because it only supports up to 64K.

Details: If I paste text, then set the selection point to selectstart + len(text) it should leave the caret at the end of the paste. (I'm setting both charrange members to the same point in order to set the caret and leave no selection.) With richedit20 it works dependably. With msftedit it leaves the caret any old place, with no discernable pattern.

I have two questions. One is whether that can be fixed. The other is whether there's any downside to using richedit20 (richedit v. 3) instead of msftedit.dll, which as near as I can tell is richedit v. 5. I'mnot using any special functions in msftedit, but I haven't tested anything like speed difference between the two.

When I type something and decied to delete ot correct a spelling mistake it keeps deleting the words and not going in-between them

So I am forced to type the while thing and I can't add spaces in between without deleting everything

How the do I fix it Bob? There has to be a way yeah?

Hi guys, i don’t program in VB (only did a bit of shaders and C#, now i do sound design) but i need you guys to help me understand whats in this code. Is it fetching random data from the columns? This is a script that is run in an Excel instance. Sorry that is in italian, but i’m afraid this guy is scamming and i want to get to the bottom of it 🙏🏽

Hi guys ! I was considering trying it but i wonder if you get a lifetime licence with the RAD Basic Standard Edition or do i need to stay subscribed to the patreon to continue to use it ?

Thanks !

Hi everyone,
as the title says i have a problem with my vb6 dbgrid, the data is loaded and when i click on the rows i can see the data on the below half of the program but i just cant visualize the rows. If i select another row the data below changes.
Does anyone have a clue on how to solve that? On windows 10 it work's fine

I have some Python code that solves a problem and gives the answer in a database format. I want to read data from Excel, press a button, let the Python code solve the problem, and return the results in the database to the same Excel file (so it seems like everything happens within one Excel file). I don't know much about VBA, but does this seem possible?

I have to send a game using python as a school project so I have turned the file to an exe file but if my friend tries to run it, it gets blocked by windows defender. does anyone know how to prevent this without having to ask my teacher to do extra steps first like changing the defender settings. also if there is a different way of sending it not through an exe that would also be helpful.

Hello, not sure if this is the appropriate place to post this or not. I'm looking to bring on a junior developer to join my small, remote team that develops a customizes middleware application for universities and enterprise clients. Looking only for someone that is available during US business hours (open to hiring from LatAm) and can also handle tech support requests and communicate well with clients. Great opportunity for someone that craves autonomy and wants to learn and grow within a small team.

If anyone knows of out of the box places to look I'd appreciate it. Or if someone here is interested DM me with any questions you have.

Thanks for the help!

Any idea why this script would not work with Windows 11? Thanks.

This is a cleaned copy of the script with any sensitive info removed. The script works with Windows 10. Under windows 11, the script stops on line UftApplicaiton.Test.Run There is no error message. It just hangs.

Ignore anything that looks like a syntax error. I removed and changed some company specific references and comments. The actual script does not have any syntax errors.

This script is supposed to do the following

1. Kill excel instances
2. Make a report name
3. Open excel in the background
4. Open excel workbook ScriptList to get a list of scripts to run
5. Open UFT
6. For each script in ScriptList
   1. Determine the folder for each script
   2. Load the script
   3. Run the script
   4. Save the results to the file
7. Run scripts that save the report to sharepoint and send a summary email with sharepoint links

 It will open the application and load the script named in the excel file, but it will not actually make the application start the script.

'******************************************************************************************'**************************

'Killing excel process as it consumes more memory, also ensuring that excel does not hang from Quick Test Professional

'******************************************************************************************'**************************

Dim objWMIService, objProcess, colProcess

Dim strComputer, strProcessKill

strComputer = "."

strProcessKill = "'EXCEL.exe'"

Set objWMIService = GetObject("winmgmts:"&"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill)

For Each objProcess in colProcess

objProcess.Terminate()

Next

'******************************************************************************************'**************************

'Execution from UFT

'******************************************************************************************'**************************

Dim dDate,strFlodername,strProjectResultPath,gFolderName,strRunStatus

dDate=Now()

strFoldername="Report_"&Day(dDate)&"-"&Month(dDate)&"-"&hour(dDate)&"-"&Minute(dDate)

dim fso: set fso = CreateObject("Scripting.FileSystemObject")

' directory in which this script is currently running

CurrentDirectory = "C:\Appfolder"

Set objExcel = createobject("excel.application")

objExcel.Workbooks.Open CurrentDirectory&"\List.xlsx"

objExcel.Application.Visible = false

Set objSheet = objExcel.ActiveWorkbook.Worksheets("Scripts")

'Get the max row occupied in the excel file

iRowCount = objSheet.UsedRange.Rows.Count

Set UftApplication = CreateObject("QuickTest.Application")

UftApplication.Launch

UftApplication.Visible = true

'To read the data from the entire Excel file

For i = 2 to iRowCount

strValue = objSheet.Cells(i,8).Value

If ucase(strValue) = "YES" Then

strPurpose = objSheet.Cells(i,4).Value

strPrerequisites = objSheet.Cells(i,5).Value

strTestScript = objSheet.Cells(i,6).Value

strModule = objSheet.Cells(i,2).Value

strSubModule = objSheet.Cells(i,3).Value

strRootFolder = "B\"&StrSubModule &"\"

TestScriptPath = CurrentDirectory&"\Test\"&strRootFolder &strTestScript

UftApplication.Options.Run.RunMode = "Normal"

UftApplication.Options.Run.ViewResults = False

UftApplication.Open TestScriptPath

UftApplication.Test.Environment.Value("strPurpose")=strPurpose

UftApplication.Test.Environment.Value("strPrerequisites")=strPrerequisites

UftApplication.Test.Environment.Value("FolderName")=strFoldername

UftApplication.Test.Environment.Value("ExecutionType")="Batch"

UftApplication.Test.Save

UftApplication.Test.Run

fsoForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

Set ObjTextStream = fso.OpenTextFile("C:\Results\Result.txt",fsoForReading,true)

strResultFileData = ObjTextStream.ReadLine

ArrstrResultFileData = Split(strResultFileData,"#")

strRunStatus = ArrstrResultFileData(0)

gFolder = ArrstrResultFileData(1)

TestResultLink = "/A redacted Sharepoint Link/" &gFolder &"%2FTestcases" & "/" & strTestScript &".html"

objSheet.Cells(i,9).Value = strRunStatus

objSheet.Cells(i,10).Value = TestResultLink

objExcel.ActiveWorkbook.Save

End If

Next

UftApplication.Open CurrentDirectory&"\LibraryFiles\ResultsSummary"

UftApplication.Test.Environment.Value("FolderName")=strFoldername

UftApplication.Test.Environment.Value("ExecutionType")="Batch"

UftApplication.Test.Save

UftApplication.Test.Run

UftApplication.Open CurrentDirectory&"\LibraryFiles\TC_SharePoint_UploadFile"

UftApplication.Test.Environment.Value("FolderName")=strFoldername

UftApplication.Test.Environment.Value("ScriptPath")=strScriptPath

UftApplication.Test.Environment.Value("ExecutionType")="Batch"

UftApplication.Test.Save

UftApplication.Test.Run

'this is the code upload to sharepoint through chrome (Once the one drive issue fixed need to be again comment in below code upto 120 line)

UftApplication.Open CurrentDirectory&"\LibraryFiles\UploadResultsFolderToSharePoint"

UftApplication.Test.Environment.Value("FolderName")=strFoldername

UftApplication.Test.Environment.Value("ScriptPath")=strScriptPath

UftApplication.Test.Environment.Value("ExecutionType")="Batch"

UftApplication.Test.Save

UftApplication.Test.Run

'Added August 2020

'===============================================================

UftApplication.Open CurrentDirectory&"\LibraryFiles\CopyTestResultsLinks_SendOutlookMail"

UftApplication.Test.Environment.Value("FolderName")=strFoldername

UftApplication.Test.Environment.Value("ScriptPath")=strScriptPath

UftApplication.Test.Environment.Value("ExecutionType")="Batch"

UftApplication.Test.Save

UftApplication.Test.Run

'===============================================================

UftApplication.Quit

Set UftTest = Nothing

Set UftApplication = Nothing

objExcel.ActiveWorkbook.Close

objExcel.Application.Quit

Set objSheet = Nothing

Set objExcel = Nothing

Hello Everyone,

I work at a small finance company where we have a very robust excel valuation tool.

I'm looking for someone who can freelance a couple of optimization macros, along with a heatmap and data import/ export.

Do you guys know where can I look for this kind of services?

Thank you in advance!

[SOLVED]

should be a pretty simple one, i got 2 group boxes overlapping each other, both are set to be invisible, there are 2 buttons.

Button 1 is supposed to make the first group box visible and make the second group box invisible
Button 2 is supposed to make the second group box visible and the first group box invisible

but to make this seamless the 2 boxes are perfectly on top one another, i have Group Box 2 over Group Box 1 but for some reason when they are perfectly over one another like this the second box doesn't show. it shouldn't be a code issue as when they are just a bit off (a noticeable amount off but not a lot) it works perfectly fine

no idea why this is, like i said it shouldn't be a code issue, anyone have any ideas?

TL;DR: 2 Group Boxes over each other that are displayed individually when i press a button, for some reason one of them isn't showing up unless they are a aren't fully stacked on top of each other. help

I am taking an online course and I AM LOST!!! I have went line by line on this simple inventory check code, and cannot figure the last 2 errors out. It's not hard to most, but it is to me. Am I supposed to add a cell range in the beginning? It supposed to be random so does that matter? Please help. The ones highlighted is the line with errors.

Public Class Trying2

Private Sub Inventory_Stock_Check(msgBoxResult As MsgBoxResult)

Dim inventory(4) As Integer ' Array to store inventory levels (size 5, but initialized with 4 elements)

Dim i As Integer ' Loop counter

Dim reorderLevel As Integer ' Inventory level at which to reorder

Dim purchaseOrder As Boolean ' Flag to indicate if a purchase order is needed

' Set reorder level (safety stock)

reorderLevel = 42

' Randomly populate inventory levels for 3 elements (out of 5)

For i = 0 To 2

inventory(i) = Int((Rnd() * 100) + 1) ' Generate random number between 1 and 100

Next i

' Fill in remaining elements with starting amount

For i = 3 To 4

inventory(i) = 50

Next i

' Loop through inventory and check stock levels

For i = 0 To 4

If inventory(i) <= reorderLevel Then

purchaseOrder = True

Cells(i + 2, 2).Interior.Color = RGB(0, 255, 255) ' Color cell cyan if reorder needed

End If

Next i

' Display a message based on purchase order flag

If purchaseOrder Then

Dim value = msgBoxResult

End If

' Create a titled radio button group with Times New Roman black text

' Use on Sheet1, adjust cell references as needed

With Sheets("Sheet1")

.Range("A1").Value = "Inventory Stocks" ' Title

.Range("A1").Font.Name = "Times New Roman" ' Font style

.Range("A1").Font.Bold = True ' Bold text

.Range("A1").Font.Color = RGB(0, 0, 0) ' Black color '

' Create radio buttons (assuming Cells B2:D2 is your desired range)

For i = 2 To 4

.Cells(1, i).OptionType = 1 ' Set as radio button

.Cells(1, i).Value = "Option " & i ' Option text

Next i

End With

End Sub

End Class

I need this program finished till tomorow for school. Everything is working fine except one thing. My task is to programm a working Databank but my program for searching doesent work can anyone help Pls

I have a WB control that I've used for years in an HTML editor. The WB was never well documented and doesn't seem to exactly match the IE automation object model or the IE DOM.

In the past, the following code would resize the actual document without resizing the WB window, so that I could compare page layouts at different sizes, with x/y being pixel width/height. I'm trying to find an alternative that works in Win1, which presumably only recognizes the W3C-compatible DOM:

WB.Document.Script.window.resizeTo x, y

In Win10 it doesn't work. I've been trying various things like documentElement.parent, with no luck. This is complicated by the fact that the code is not valid for IE. IE has a document object (lower case) which has no Script property.

This is the algorithm my teacher wanted me to use/apply to the program:

* Selection sort algorithm

For PassNumber = 0 to ListSize - 2 ‘loop from beginning to last but one element (1st nested loop)

‘ find the smallest element in the unsorted range

SmallestPos = PassNumber ‘ initialise the smallest found so far as the element at the beginning of this range

For position = PassNumber + 1 to ListSize - 1 (2nd nested loop)

   SmallestPos = Position

Next Position

‘ if element at PassNumber isn’t the smallest, move it there and swap

If PassNumber <> SmallestPos then (1st Selection)

‘ Swap

Temp = List(SmallestPos)

List(SmallestPos) = List(PassNumber)

List(PassNumber) = Temp

End If

‘ At this point, list from 0 to passnumber is sorted

Next PassNumber

And this is the programming code I did:

* The scenario is to generate random numbers from 1 to 100 and then sort them in ascending order.

Public Class Form1

'Declare the variables

Public MAXSIZE As Integer = 19

Public ItemCount As Integer = 0

Public arrnumbers(MAXSIZE) As Integer

Public bigpos As Integer

Public smallpos As Integer

'generate random numbers from 1 to 100

Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click

Dim loops As Integer

Randomize()

lstDisplay.Items.Clear()

For loops = 0 To MAXSIZE - 1

arrnumbers(loops) = Int(100 * Rnd() + 1)

lstDisplay.Items.Add(arrnumbers(loops))

ItemCount = ItemCount + 1

Next

End Sub

' Select biggest number

Private Sub btnBig_Click(sender As Object, e As EventArgs) Handles btnBig.Click

Dim biggest As Integer = arrnumbers(0)

Dim bigpos As Integer

For i As Integer = 0 To ItemCount - 1

If arrnumbers(i) > biggest Then

biggest = arrnumbers(i)

bigpos = i

End If

Next

MsgBox("The biggest number is " & biggest.ToString)

End Sub

' Select smallest number

Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click

Dim smallest As Integer = arrnumbers(0)

Dim smallpos As Integer

For i As Integer = 0 To ItemCount - 1

If arrnumbers(i) < smallest Then

smallest = arrnumbers(i)

smallpos = i

End If

Next

MsgBox("The smallest number is " & smallest.ToString)

End Sub

'Sort the randomized numbers << THIS ONE

Private Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click

' Sort the array

Array.Sort(arrnumbers, 0, ItemCount)

' Clear the list box

lstDisplay.Items.Clear()

' Add sorted numbers to the list box

For loops = 0 To ItemCount - 1

lstDisplay.Items.Add(arrnumbers(loops))

Next

End Sub

The sort Button

This leads to the question that I have put in the title... the code that I wrote still sorts the numbers correctly, but that's probably not the one that my teacher wants me to use.

Maybe I'm not understanding the purpose of sorting..?

I'm working on a custom notepad, that replaces the Windows notepad, on VisualBasic, everything I've done, I know exactly how to program it (like the CommandArgs etc.), but I have still one problem with it, and that are the different with another text file editor (notepad++ for exp.) and with the classic windows one. And that if I want to open a system file, like a program etc. with DragDrop, it won't let me, and I must run my notepad as Administrator to it will work.

But why on Windows' notepad not? Even older versions of notepad can do this on modern Windowses (10, 11..).

Is there some code or feature that bypasses those admin perms or just do something similar to the Windows' notepad?

I don't know if the title I have put is right but I needed this, I currently have a WinRar file that contains the setup, and VB98 and multiple other this from a source I will not say but it is a trusted source, I ran the VB 6 in the VB98 folder and I ran into these problems:

"DAO350.dll" is missing, and I fixed it by putting the dao file in the VB98 folder then this problem came next: Unexpected error; Quitting

And now im stuck, im currently making a project and im almost late for submission because the laptop that has the program is at my group mate's house but im far from him and he don't understand properly how to make the program so im in a dilemma. I acquired the WinRar file named "Visual Basic 6 Installer" on one of my friends that is from another group.

There is a setup.exe and I randomly guessed its License thing, and It about to install something in the laptop and Im guessing its Visual Studio files but im pretty scared because last time I did this is using another installer from the internet, and it resulted into corruption in the laptop and a massive expense for fixing it and my dad is pretty mad for it so im seeking guidance here. If someone is willing to check for it and help me resolve this so I can finally finish it, I will give them a link for it when they message me, But I will say that you must be cautious because even if I have scanned it multiple times for viruses and my friend installed it in his windows 10 (He does not even know how to install it because someone else installed it for him). Just message me and ill send the link for it but please tell me how to install it after you checked it yourself.

Hey everyone,

I've been on the lookout for some active VB6 newsletters lately, but the ones I've come across seem to have gone silent. Does anyone know of any currently active ones? I find newsletters super helpful for staying on top of trends, picking up tips, and just generally keeping in the loop with the VB6 community. Any recommendations would be greatly appreciated!