The quantity of price in floating is not showing on msgbox as floating instead of showing integer
i have a project in vb 6.0. its simple project of a sales purchase. The quantity prices are in floating value but problem is that whenever i made a sales order the prices are in rounded. not in floating value. kindly suggest me what to do
See also questions close to this topic
How to create apps which run on windows 10
I have this problem running my apps properly on windows 7 and windows 10, I build this apps with vb6. I have read it in somewhere if the installation file is create with admin privilege it would work fine, but I have no idea how to give or create the installation file and admin privilege. I use Inno setup program for creating the installation file.
Can anyone suggest help for me here if its possible in detail.
Keeping currently selected node at top of treeview
I have a treeview (TVWDB) which has several node, children and grandchildren. Depending on the user these can be shown as just the parent node, or with the children or even grandchildren displayed.
The user steps through this using a button which advances down the tree at the level they have selected (ie if a child is selected then it will step through each child).
Im looking for a way that when the selected item drops down that node is shown at the top of the tree (if there are parents then it should actually be the parent node which is shown.
I keep looking at .Ensurevisible and Getvisible count but this seems to work on the 1st attempt but then start jumping around on each subsequent advance.
VB6 not responding
I have no experience with VB6 and I have ran into error when I run the application with this code included:
Data9.RecordSource = "select * from zag_d where tip=" & tip Data9.Refresh Data1.RecordSource = "Select distinct god,broj,partner,interno from zag_d where tip=" & tip Data1.Refresh
VB6 and Application that I'm runing from VB6 goes "not responding". How can i debug it? This is the first time that VB6 is not giving me any debug information, it just stops working.
How to display a literal along with a result from listbox in Visual Basic?
Dim x As Integer Dim y As String Dim z As String y = "Invalid" z = searchbox.Text.ToLower Do Until x > listbox.Items.Count - 1 Or y = "Valid" If z = listbox.Items(x).ToString.ToLower Then y = "Valid" listbox.SelectedIndex = x MsgBox("Search found:", listbox.Items(x)) End If x = x + 1 Loop If y = "Invalid" Then listbox.SelectedIndex = -1 MsgBox("No results found.") End If
MsgBox(listbox.Items(x)) works fine on its own and shows the search result but if I try to add the literal "Search found:" it explodes when I search.
EDIT: Sorry, I figured it out. All I had to do is add & between the literal and listbox.Items(x).
So the code now looks like
MsgBox(listbox.Items(x) & " was found.")
Receive Excel Msg pop up when we're on other tools
I was able to make a live countdown in Excel and was able to get a message pop-up when the countdown hits 0.
However, when I'm on other browsers such as Google etc and when the countdown hits 0, I won't be notified until I open up my Excel. Is there a way to get notified by Excel while I'm using other browsers?
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Range("E2:E7") If Format$(c.Value, "HH:MM:SS") = "00:15:00" Then MsgBox "Block " & c.Offset(0, -3).Value & " ends in 15 mins" End If
This is the code that I have.
MsgBox SelectionChange define range
I have written the following code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myValue As Variant If Range("B22") = "Yes" Then myValue = InputBox("InsertInitialDetach") Range("C22").Value = myValue End If End Sub
This code is meant to do the following thing: If I select Yes from a Yes/No drop down list, a message box appears and asks me to fill in a date. The problem is that even after I fill the date, whatever I do afterwards, the box keeps on appearing and asking for the date. If I move two cells down, for example, the popup will continue to ask me for a date. Please tell me what should I do to fix this error?