|
Here is the visual c++ version :
void CColor1Dlg::OnButton1() <br />
{<br />
HWND hPalWnd = ::FindWindow("my window class", NULL);<br />
HWND spilterwindow = FindWindowEx(hPalWnd, 0, "WTL_SplitterWindow", 0);<br />
spilterwindow = FindWindowEx(spilterwindow, 0, "WTL_SplitterWindow", 0);<br />
HWND ATL = FindWindowEx(spilterwindow, 0, "WTL_SplitterWindow", 0);<br />
HWND ATLWIN = FindWindowEx(ATL, 0, "atl:0053c8d0", 0);<br />
HWND Dialog = FindWindowEx(ATLWIN, 0, "SysListView32", 0);<br />
HWND Rich = FindWindowEx(Dialog, 0, "SysHeader32", 0);<br />
<br />
<br />
<br />
CButton *pButton1 = (CButton*)GetDlgItem(IDC_BUTTON1);<br />
COLORREF GetBkColor(IDC_BUTTON1);<br />
<br />
COLORREF color = 33023;<br />
TRACE("Color of the selected font = %8x\n", color);<br />
<br />
::SendMessage(Dialog, LVM_SETTEXTCOLOR, 0, color);<br />
<br />
}
|
|
|
|
|
And the VB6 code???
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi
i have two hashtables
example :
Hashtable 1 Hashtable 2
key Value key Value
Details Order Details Product
Can i get One Order from 1st hashtable and then One product from the second hashtable ?
Thanks
blue
|
|
|
|
|
If any one not understood my question
My Question is Incase if i have two hashTables and does not contain same key values , so there is no link between the two tables right.
Now i want to loop thru both the hashtables at a time
like one value from 1st hashtable and one value from the 2nd hashtable
then move next ....so on
Can i use for i as integer=0 to ht.count or something like that ??
blue
|
|
|
|
|
You have to call each htable's GetEnumerator() to get the enumerator and then walk through the collection. This article contains some code snippets: link.
Best,
Jun
|
|
|
|
|
The items in a hash table are not stored in a way that you can retrieve them in the order that you stored them. If there is no way of associating the items in the two lists from the data in the items themselves, you can't list them correctly.
Unless, of course, you don't care at all in what order the items comes from the lists.
---
b { font-weight: normal; }
|
|
|
|
|
Hi all:
I need to get mouse position information which is easy enough to do with the form's mouseMove event. I've noticed, though when the mouse passes through a control, the flow of x,y coordinates stops.
How do I get a continous flow of information? I suppose I could add a mouseMove event to each control, but that seems like a kludgy way of doing things.
Thanks,
Norm
|
|
|
|
|
You could add a handler in your form for the controls when you add them. Something like this:
Public Sub AddControl(ByVal Control as UserControl)
AddHandler Control.MouseMove, AddressOf HandleMouseMove
Me.Controls.Add(Control)
End Sub
Private Sub HandleMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
'handle your mouse move stuff
End Sub
Hope this helps. As well, don't forget that if you use AddHandler to add an event handler, always have a RemoveHandler when you close your form, otherwise your application will have a memory leak.
Public Sub RemoveAllControlHandlers()
For Each Control as Control In Me.Controls
RemoveHandler Control.MouseMove, AddresOf HandleMouseMove
Next
End Sub
|
|
|
|
|
Hello Friends.I making application in vb.net with Mysql.
i m prepare Crystal Report but i can't make connection with Mysql.
A little program can also help me.
-- modified at 9:23 Friday 7th July, 2006
|
|
|
|
|
Pushkar IT wrote: i can't make connection with Mysql.
What part of making a connection to MySQL are you having trouble with? If you need resource on connection strings go here[^].
Hope this is some help for you 
|
|
|
|
|
Thanx Paul for Reply.
I have a problem when i want to make connection for Crystal Report.
I can't understand how can i get Datafield for MySql table.
Can you please tell me how can generate Crystal Report in Vb.Net for MySql Database?
If possible give Sample Example.
Thanx
Regards.
Pushkar
BEIT
|
|
|
|
|
Hi All,
I am new to Windows application.i have created a combobox column in the grid.if i bind it, all the combo boxes in the column gets the same value.But i need to bind combo values according the value in the first column of the grid.Can anybody tell me the solution.
Thanks in Advance,
Ramesh
|
|
|
|
|
hi everybody, i am using a visual basic 6 platform, i have 2 forms, form1 & form2, from the form1 i am callin the form2 using : form2.show, but i have a pb i need to take the informations entered by user on the txtbox in from2 & use it in the form1 but the pb is that the form1 keep runing & he is waitin till the user press ok on the form2 to take the info.
in other words i need to do somthin like the inputbox function in visual basic but i have more the one textbox.
can anyone help me plz to solve this pb... i realy need help on it.
10x for replyin
waelhawari
|
|
|
|
|
Why not create a module that contains global variables? In form2, you can place the information into a global variable. Then, when you close the form and/or get back to form1, it will be there.
|
|
|
|
|
10x a lot ....
it's workin 
waelhawari
|
|
|
|
|
can anyone help me in connecting SQL Server 2000 with Vb.Net.I am not able to connect.
Mohinder Singh
|
|
|
|
|
i suggest you start here[^] and follow through the different links, do a few exercises, etc. the basic concept is pretty easy
connection object > data adapter > dataset
if you know how to work with these data access is a breeze. there are other methods as well (of course) but get started with these and have fun
|
|
|
|
|
i create a Class that creates an excel file from a datatable. but the final sheet in the excel workbook looks awful!!? the columns of datatable are sorted alphabetically in the excel worksheet.here's my class source code:
Imports Microsoft.Office.Interop
Imports System.Globalization
Imports System.Threading
Public Class CreateXLS
Public Sub GenerateXLS(ByVal Table As DataTable, ByVal TargetXLSPath As String)
Table.WriteXml("C:\tmpxls.xml")
Dim oldCI As CultureInfo = Thread.CurrentThread.CurrentCulture
Try
'Start Excel and open the resulting file.
Dim oExcel As New Excel.Application
Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
oExcel.Workbooks.Add()
oExcel.Workbooks.OpenXML("C:\tmpxls.xml")
oExcel.ActiveWorkbook.SaveAs(TargetXLSPath)
oExcel.Application.Quit()
Catch
Throw New ArgumentException("Error in File Saving")
Finally
My.Computer.FileSystem.DeleteFile("C:\tmpxls.xml")
Thread.CurrentThread.CurrentCulture = oldCI
End Try
End Sub
End Class
Can you help me to save target worksheet as it is on the source datatable?
thanks
-- modified at 7:24 Friday 7th July, 2006
|
|
|
|
|
You might want to just open the XML file in Excel yourself and see what it's doing. Since none of us here can see your XML file, it's about the only way you're going to see what you need to do to get in in the format you want.
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 7:39 Friday 7th July, 2006
|
|
|
|
|
Hello to all
I have a computer used as PDC and File-Server. SUSE Linux 9.3 is installed on it and the files are released for the net with Samba.
MS Visual Studio 2005 is locally installed on my notebook whereas I would like to save my projects on the file server.
Now, when I open a project I always the message that the location for the projects isn’t confidential/ protected enough and that when processing the application actions could occur which need “”full reliability”.
It’s possible to ignore this warning message and to continue but when testing the programm a new message appears: “Never enter personal information or passwords unless you can check the source and rely on it”.
I’m programming an application in Visual Basic which accesses the SAP System via RFC. When giving the command Create Object(”SAP Functions”) I get an error message “Security Exception wasn’t treated”.
When saving the project locally, everything works smoothly. Does anybody has any idea for solving the problem?
Thanks a lot in advance!
|
|
|
|
|
This is because of Code Access Security[^]. Code running from an untrusted network source runs in a restricted sandbox. This is why you're getting all these errors. Move the project to a local folder and you won't get any of these errors.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I have package my application and install to another machine, if the user just click Start --> Run and then type short word after that run my application automaticial. Example as notepad
Thanks
................
|
|
|
|
|
in your deployment you will need to install a shortcut to the app in the client machine's system folder. give the icon the short word you would like to use as its name, when users type this word into the Run dialog it will call the app to run.
|
|
|
|
|
Should i install short cut application system folder 32?
Thanks
................
|
|
|
|
|
yes.
you can install to this folder in your setup project by:
1. right-click on setup project. select "View > File System"
2. on the main menu bar click on "Action > Add Special Folder > System folder".
3. create a new shortcut to your primary output in the system folder you have created and name the shortcut the short word you wish to use.
4. build and test.
hope that helps.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
