|
My guess (based on the subject text) is that your question is "Why do I have to put 'Excel =' in the 'Imports Excel = Microsoft.Office.Interop.Excel' line when I could just do 'Imports Microsoft.Office.Interop.Excel'?". If that is your question, the answer is that the 'Excel =' provides a shorter name than having to write the whole lot every time, so rather than having to type
Dim xlWorkBook As Microsoft.Office.Interop.Excel.WorkBook you can simply type
Dim xlWorkBook As Excel.WorkBook . If that is not what your question is, then what is the question?
We at CP are good at answering questions; we are not quite as good at trying to guess what the question is 
|
|
|
|
|
There is no (apparent) API for managing icons in the system tray in Windows. Applications that live in the system tray that are aborted through Task Manager, or end without a proper shutdown (error out) will leave their icons in the system tray. Restarting the application then puts another icon in the tray. The zombie icons persist and the only official way to remove them is to float your mouse over them and POOF - they disappear. There simply is no Win32 API for clearing these out. In my research I have found that a lot of folks are looking for the ability to clear these out. I even found one commercial product from a company called APPSVOID But it's bundled in an expensive subscription package.
I suspect the commercial product uses hacks that can be found in various places in languages other than VB. One such can be found at Refresh Notification Area This works, but is written entirely in C++. I'm not a C++ Programmer so I spent some time clumsily refactoring the C++ to vb.net (Framework 4.8 in a Winforms application) and came up with the following and would love it if someone smarter than me could look over my shoulder, laugh a little, and help out:
<pre>Imports System.Runtime.InteropServices
Public Class ClearSystemTray
Private Const WM_MOUSEMOVE As UInteger = &H200
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
End Function
<DllImport("user32.dll", EntryPoint:="FindWindowW")>
Public Shared Function FindWindowW(<MarshalAs(UnmanagedType.LPTStr)> ByVal lpClassName As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)>
Private Shared Function GetClientRect(ByVal hWnd As System.IntPtr, ByRef lpRECT As Rectangle) As Integer
End Function
Public Shared Async Function ClearTray() As Task(Of Task)
Dim SystemTrayContainerHandle As IntPtr = FindWindowW("Shell_TrayWnd", Nothing)
Dim systemTrayHandle As IntPtr = FindWindowEx(SystemTrayContainerHandle, IntPtr.Zero, "TrayNotifyWnd", Nothing)
Dim sysPagerHandle As IntPtr = FindWindowEx(systemTrayHandle, IntPtr.Zero, "SysPager", Nothing)
Dim NotificationAreaHandle = FindWindowEx(sysPagerHandle, IntPtr.Zero, "ToolbarWindow32", "Notification Area")
If NotificationAreaHandle = IntPtr.Zero Then
NotificationAreaHandle = FindWindowEx(sysPagerHandle, IntPtr.Zero, "ToolbarWindow32", "User Promoted Notification Area")
Dim notifyIconOverflowWindowHandle As IntPtr = FindWindowW("NotifyIconOverflowWindow", Nothing)
Dim overflowNotificationAreaHandle As IntPtr = FindWindowEx(notifyIconOverflowWindowHandle, IntPtr.Zero, "ToolbarWindow32", "Overflow Notification Area")
Await RefreshTrayArea(NotificationAreaHandle)
Await RefreshTrayArea(notifyIconOverflowWindowHandle)
Await RefreshTrayArea(overflowNotificationAreaHandle)
Else
Await RefreshTrayArea(NotificationAreaHandle)
End If
Application.DoEvents()
Return Task.CompletedTask
End Function
Private Shared Async Function RefreshTrayArea(windowHandle As IntPtr) As Task(Of Task)
Dim rect As Rectangle
GetClientRect(windowHandle, rect)
Dim iPos As Integer
Await Task.Run(Sub()
For x As Integer = 0 To rect.Right - 1 Step 5
For y As Integer = 0 To rect.Bottom - 1 Step 5
iPos = (y << 16) + x
PostMessage(windowHandle, WM_MOUSEMOVE, 0, iPos)
Next
Application.DoEvents()
Next
End Sub)
Return Task.CompletedTask
End Function
Since I can barely read the C++ code I have no idea if I did this correctly or not - but... it appears to work.
Here is the original C++ code from the above mentioned site:
<pre>#include "stdafx.h"
#define FW(x,y) FindWindowEx(x, NULL, y, L"")
int _tmain(int argc, _TCHAR* argv[])
{
HWND hNotificationArea;
RECT r;
GetClientRect(
hNotificationArea = FindWindowEx(
FW(FW(FW(NULL, L"Shell_TrayWnd"), L"TrayNotifyWnd"), L"SysPager"),
NULL,
L"ToolbarWindow32",
L"Notification Area"),
&r);
for (LONG x = 0; x < r.right; x += 5)
for (LONG y = 0; y < r.bottom; y += 5)
SendMessage(
hNotificationArea,
WM_MOUSEMOVE,
0,
(y << 16) + x);
GetClientRect(
hNotificationArea = FindWindowEx(
FW(FW(FW(NULL, L"Shell_TrayWnd"), L"TrayNotifyWnd"), L"SysPager"),
NULL,
L"ToolbarWindow32",
L"User Promoted Notification Area"),
&r);
for (LONG x = 0; x < r.right; x += 5)
for (LONG y = 0; y < r.bottom; y += 5)
SendMessage(
hNotificationArea,
WM_MOUSEMOVE,
0,
(y << 16) + x);
GetClientRect(
hNotificationArea = FindWindowEx(
FW(NULL, L"NotifyIconOverflowWindow"),
NULL,
L"ToolbarWindow32",
L"Overflow Notification Area"),
&r);
for (LONG x = 0; x < r.right; x += 5)
for (LONG y = 0; y < r.bottom; y += 5)
SendMessage(
hNotificationArea,
WM_MOUSEMOVE,
0,
(y << 16) + x);
return 0;
}
If someone here is literate in C++ it would be great if you could look this over and see what dumb things I may have done. I am not offended by legitimate criticism (saying you shouldn't be using VB is not legitimate criticism). Also - if someone thinks it's valuable to have this in C# I'm game for that.
modified 29-Nov-22 8:21am.
|
|
|
|
|
The obvious "dumb thing" was linking to the expensive commercial application, which is technically spam. 
Also, returning Task(Of Task) is unnecessary; just have the function return Task, and remove the Return Task.CompletedTask lines.
And calling Application.DoEvents is a code-smell. Aside from the fact that it ties your code to WinForms, it will also lead to unexpected behaviour.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Thanks - yes - you are right. I will see if I can edit the link away. If people are interested they can google it themselves!
The Application.DoEvents are not in my final version - I should have removed them before I posted. I often use those to host a breakpoint for convenient place to examine values. Yes - I do occasionally leave them accidentally so I would agree, that remains in the dumb category. However, I do find the occasional DoEvents necessary in some synchronously running tight loops.
I thought an async function should always return a value and some examples from which I learned a long time ago have that task(of task) with the return of task.completedtask. Wow - that is all over my code...
|
|
|
|
|
Dan Desjardins wrote: I thought an async function should always return a value
Perhaps you were confused by the valid "avoid async void" warning - in VB.NET, that would be the equivalent of an Async Sub:
Avoid async void methods | You’ve Been Haacked[^]
An Async Function that returns a non-generic Task is similar to a synchronous Sub that doesn't return anything. An Async Function that returns Task(Of Foo) is similar to a synchronous Function that returns Foo.
In other words:
Sub PrintSync()
...
End Sub
PrintSync() would become:
Async Function PrintAsync() As Task
...
End Function
Await PrintAsync()
And:
Function CalculateSync() As Integer
...
Return 42
End Function
Dim i As Integer = CalculateSync() would become:
Async Function CalculateAsync() As Task(Of Integer)
...
Return 42
End Function
Dim i As Integer = Await CalculateAsync()
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
And now that makes sense to me - especially since your return int is 42 
|
|
|
|
|
I want to know some coding for attaching attendance machine's IP Connected or Disconnected. I have a sample image for it.
|
|
|
|
|
Then ask the manufacturer for the sample code.
Even if we knew the make and model of the machine you're using, nobody here is going to do your work for you. All we could do is Google for sample code and give you the links - something you could easily do for yourself.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
|
Ask the manufacturer, they know the capabilities of their device.
|
|
|
|
|
Attendance controls?
That's more expensive than missing a few days from a few of your top devs 
To ridicule it more; in the age of working from home? If it is a truck driver, then there's cheaper ideas, they just need to register starting time and end time (yup, done that, been there).
This only a benefit in a supermarket. Are you a supermarket?
Bastard Programmer from Hell 
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Ping the IP address.
"Before entering on an understanding, I have meditated for a long time, and have foreseen what might happen. It is not genius which reveals to me suddenly, secretly, what I have to say or to do in a circumstance unexpected by other people; it is reflection, it is meditation." - Napoleon I
|
|
|
|
|
418
Bastard Programmer from Hell 
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Currently I am working on an old VB6 app to be compatible with UNICODE.
This app has SSTab and within this tab, there are user control q1, q2, q3 and so on. For q1, it has the following code:
Private WithEvents q1 As VBControlExtender
Private progID As String
procId = "ALCTX10.CTX10.1"
Set q1 = Controls.Add(procId, "q1")
myTab.tab = 1
q1.Move borderSize, topMargin, myTab.Width - borderSize * 2, _
myTab.Height - borderSize - topMargin
q1.Visible = True
The procId is referring to VC++ 6 DLL. All user controls are using this DLL.
For VC++ 6 DLL, I added ",_UNICODE, UNICODE" into the preprocessor definitions under the project setting of VC++ 6.
And compiled the DLL again and then brought it back to VB6.
The problem is I am still getting the same UNICODE issue from VB6 app.
I am using a foreign version of Windows XP so it is not the font problem.
I can’t just replace this DLL with UNICODE supported TextBox or RichTextBox since there are too many things going underneath the DLL.
I would appreciate very much if anyone sheds a light on this problem. Thanks.
|
|
|
|
|
You have atready asked it in VC++/MFC forum.
|
|
|
|
|
Yes. But I posted it here also since the main app is VB6 even though the DLL is VC++ 6.
|
|
|
|
|
Ok, let me try to explain my dilemma. I have a VBApp that I can't republish due to another issue, but the crystal report in the app, that is published on our server needs a very minor tweak.
When published, where is the .rpt file put? I'd like to just change the .rpt file with the modification we need without republishing.
I found config data in the c:\users\nameofuser\appdata\local\apps\2.0\data directory, but no sign of where the .rpt file gets put.
Any idea where VS.Net puts this?
Lost in the vast sea of .NET
modified 27-Oct-22 13:06pm.
|
|
|
|
|
There won't be a standard location. If it's not within the published application folder, then you'll need to check the code to see where it loads the reports from.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Hello every one;
the below Code is to update Parent and Child table,
the relationship between tables was set to (Relation only) on Data Designer,
But on SQL Server, Update and Delete Rule set to (Cascade)
with this setup Parent table was Updating ok,
but child table return (Added/Modified) changes as nothing and did not get update
I tried all cases to Set (Update-Delete-Accept/Reject) relationship Rules On Dataset Designer but did not solve the issue
Could advise what to do here
thanks in advance
ParentTableBindingSource.EndEdit
Dim My_Parent_Modified As DataTable = DataSet1.ParentTable.GetChanges(DataRowState.Modified)
Dim My_Parent_Added As DataTable = DataSet1.ParentTable.GetChanges(DataRowState.Added)
Dim My_Parent_Deleted As DataTable = DataSet1.ParentTable.GetChanges(DataRowState.Deleted)
If My_Parent_ Modified Is Nothing = False Then
End if
If My_Parent_ Added Is Nothing = False Then
End if
If My_Parent_Deleted Is Nothing = False Then
End if
DataSet1.ParentTable.AcceptChanges
ChildTableBindingSource.EndEdit
Dim My_Child_Modified As DataTable = DataSet1.ChildTable.GetChanges(DataRowState.Modified)
Dim My_Child_Added As DataTable = DataSet1.ChildTable.GetChanges(DataRowState.Added)
Dim My_Child_Deleted As DataTable = DataSet1.ChildTable.GetChanges(DataRowState.Deleted)
If My_Child_ Modified Is Nothing = False Then
End if
If My_Child_ Added Is Nothing = False Then
End if
If My_Child_Deleted Is Nothing = False Then
End if
DataSet1.ChildTable.AcceptChanges
Imad
modified 27-Oct-22 7:02am.
|
|
|
|
|
|
Sorry Confused already delete fronm there
|
|
|
|
|
I want to add "wake the computer to run this task" scheduled task in condition tab in vbscript
|
|
|
|
|
Problème de mise à jour liée aux élément interdépendants de ma table
Bonjour chers membres du forum, j’ai une préoccupation qui est liée à la mise à jour de ma table.
En effet j’ai conçu une application vb.net pour la gestion des opérations de caisse pour le compte
d’une structure et tout fonctionne correctement jusqu’au niveau de la modification de la table où j’ai un bémol.
Le truc c’est qu’une opération est soit une recette ou une dépense d’où j’ai créé une variable
solde = recette - dépense (recette ou dépense est nulle selon la nature de l’opération) qui représente le solde
de chaque opération effectuée.
Pour ce qui est de la part du solde de la caisse à partir d’une opération op2 on a:
E: solde_caisse_op2 = solde_op2 + solde_caisse_op1 ( égal à solde_op1) et cela fonctionne bien en insertion.
Mon problème est que sur par exemple 10 opérations effectuées on décide de modifier la 5ème opération,
comment réajuster le solde de la caisse à partir de la ligne modifiée jusqu’au dernier élément de la table
solde_caisse, vu que les différentes lignes sont dépendantes pour le calcul des différentes soldes
de la caisse d’après l’équation E.
J’ai déjà réfléchi à une solution mais qui me donne une FatalError. En effet j’ai procédé comme suit:
Imports MySql.Data
Imports MySql.Data.Entity
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
Public solde_operation As Integer = 0
Public MaxId As Integer
Public j As Integer
Public soldecaisse As Integer
Public i As MySqlParameter
Private Sub GetMaxId()
connecter()
Dim sql As String
sql = "(SELECT MAX(Id_operation) FROM tbl_operation)"
Dim query As New MySqlCommand()
query = New MySqlCommand(sql, connecter)
MaxId = Val(query.ExecuteScalar())
connecter.close()
End Sub
Private Sub GetSoldeCaisse()
connecter()
Dim sql As String
sql = "select ((select Solde_operation from tbl_operation where Id_operation = @i) + (select Solde_operation from tbl_operation where Id_operation = @i-1))"
Dim query As New MySqlCommand()
query = New MySqlCommand(sql, connecter)
i = New MySqlParameter("@i", j)
soldecaisse = Val(query.ExecuteScalar())
connecter.close()
End Sub
Private Sub UpdateSolde()
connecter()
GetMaxId()
Dim sql As String
sql = "UPDATE tbl_operation SET Solde_operation = soldecaisse WHERE Id_operation = @i"
i = New MySqlParameter("@i", j)
Dim query As New MySqlCommand()
For j = Val(txt_num_operation.Text) To MaxId
GetSoldeCaisse()
query = New MySqlCommand(sql, connecter)
Next
connecter.close()
End Sub
En résumé la méthode GetMaxId() lors de son appel renvoie l'id_max de la table opération et cette valeur servira
de condition d'arrêt dans la boucle.
Ensuite la méthode GetSoldeCaisse(), quant à elle calcule le solde de la caisse au cours d'une opération donnée.
Enfin, la méthode UpdateSolde() qui sera appelée juste après celle qui effectuera la modification de la ligne
concernée, nous recalcule le solde de la caisse à partir de la ligne modifiée jusqu'au dernier élément de la colonne
car tous liés. La boucle for définit le début et la fin des modifications.
Je compte sur chacun pour la résolution de cette difficulté. Merci…
|
|
|
|
|
This is an English speaking site. Modify your question and replace your French text with English.
|
|
|
|
|
 Google translate: Hello dear forum members, I have a concern that is related to updating my table.
Indeed I designed a vb.net application for the management of cash operations for the account
of a structure and everything works correctly until the level of the modification of the table where I have a problem.
The thing is that an operation is either a receipt or an expense from which I created a variable
balance = revenue - expenditure (revenue or expenditure is nil depending on the nature of the operation) which represents the balance
of each operation performed.
As for the part of the cash balance from an op2 operation, we have:
E: balance_caisse_op2 = balance_op2 + balance_caisse_op1 (equal to balance_op1) and it works well in insertion.
My problem is that on for example 10 operations carried out we decide to modify the 5th operation,
how to readjust cash register balance from changed row to last item in table
cash_balance, since the different lines are dependent for the calculation of the different balances
of the body according to equation E.
I have already thought of a solution but that gives me a FatalError. I actually did the following:
[CODE]
In summary, the GetMaxId() method when called returns the id_max of the operation table and this value will be used
stop condition in the loop.
Then the GetBalanceCaisse() method, for its part, calculates the balance of the cashbox during a given operation.
Finally, the UpdateBalance() method which will be called just after the one which will modify the line
concerned, we recalculate the balance of the cash register from the modified line to the last element of the column
because all related. The for loop defines the start and end of changes.
I am counting on everyone to resolve this difficulty. Thanks…
From your description, it sounds like you're trying to build some sort of running total. But looking at your code, it's not clear how you're doing that, nor what the problem is.
Start by describing your table structure and providing some sample data. Then explain what you're updating, and what you want to happen when you update it.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
