|
I'm trying to register the new key or resetting the key with its associated application name. such as all txt file extension associated with Notepad.
My code is working fine up to setting/ modifying key with its associated application for printing by simply using /p "%1"
but for microsoft office file... I want to check "use DDE" checkbox and access DDE's feathers.
I want to add some new command to the
DDE Messages: .. etc.
Can anyone tell me how can I do that programmmatically.
thank you
|
|
|
|
|
I can use Knowledge base article 243058 to open a office application like Word or Excel but when I try to open PowerPoint it open the presentation of the .ppt file and not powerpoint as the other file types do. Is there another ppt file type that will trip the opening of the product itself with a presentation loaded or at least can I open a power point in the control and then open a ppt presentation?
Is there another way to embed an Office application in a windows form other than using the a Webbrowser control?
Thanks, GregC
|
|
|
|
|
Iam developong a tab control on an MDI form. I want to add a tab page with a menue click event, and under certain circumstances, I would like the tab on the new tab page to be a different color (LlightGrey). I have written a sub which I think should work to draw the new color, but I can't seem to trigger the DrawItem Event when the new tab page is drawn, so the routine never runs. does anyone have any suggestions?
Thanks!
|
|
|
|
|
From my windows.net application I can shell to an external application and run it using sendKeys.Wait keystrokes. … This all works fine but it does it out in the open.
When I use AppWinStyle.Hide or ApWinStyle.MinimizedFocus or ApWinStyle.MinimizedNoFocus the application appears when the “ENTER” is execute and again when the “F9” is executed Otherwise it is hidden or minimized.
Any Ideas? Thanks GregC
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProcID = Shell("C:\wincopy\wincopy.exe", AppWinStyle.Hide)
AppActivate(ProcID)
SendKeys.SendWait("{ENTER}")
SendKeys.SendWait("{F9}")
End Sub
Thanks, GregC
|
|
|
|
|
:(Hi all who know all
I have a problem in that I need to automate an excel spreadsheet with external data sources and update the data from a remote server. Problem is, this is a standard spreadsheet which I cannot (not allowed) change yet want to read certain data from it once it has updated.
Starting Excel and automating the update is not a problem (see code below). However, I need to know when the update is complete since I then have to extract specific data from this spreadsheet in my code in VB to use. How can I get feedback from Excel to say that the update is complete or alternatively pass execution to another piece of code once the update is done.
"Command1_Click" section of code works fine - its the "AfterRefresh" bit thats got me stumped since it don't work!!!!!!!! The "AfterRefresh" section apparently refers to a PivotTable according to the excel Help section but I am not using a PivotTable.
Any help would be GREATLY appreciated
Regards
Jeremy
Private Sub Command1_Click()
Set m_objExcel = Excel.Workbooks
Dim msExcelWorkbook As String
msExcelWorkbook = App.Path & "\ExcelReports\Update.xls"
m_objExcel.Open msExcelWorkbook
m_objExcel.Application.Visible = True
m_objExcel.Application.ActiveWorkbook.RefreshAll
End Sub
Private Sub ActiveWorkBook_AfterRefresh(Success As Boolean)
If Success = True Then
m_objExcel.Application.ActiveWorkbook.Save
m_objExcel.Application.ActiveWorkbook.Close
m_objExcel.Application.Quit
Call MsgBox("Refreshed all Data", vbOKOnly)
Else
' failed or was cancelled
End If
End Sub
|
|
|
|
|
Try using the WithEvents keyword.
Dim WithEvents xl As Excel.Application
Dim WithEvents Wb As Excel.Workbook
Dim WithEvents ws As Excel.Worksheet
You will have to create a reference to the Microsoft Excel Object library. I have 9.0 on my computer.
Below is a cut-n-past directly from the help file. Simply highlight the WorkBook or WorkSheet words in the Dim statements above and press F1 for help. The Microsoft Excel Visual Basic Reference Help window should appear.
CUT-N-PASTE from the Help File:
SheetChange Event
Occurs when cells in any worksheet are changed by the user or by an external link.
Syntax
Private Sub object_SheetChange(ByVal Sh As Object, ByVal Source As Range)
object Application or Workbook. For more information about using events with the Application object, see Using Events with the Application Object.
Sh A Worksheet object that represents the sheet.
Source The changed range.
Remarks
This event doesn't occur on chart sheets.
Not sure this is what your looking for but it may help.
Michael
|
|
|
|
|
We are on the right track. This looks promising
Being a newbie, how do I trigger this event or pass info to this sub once Excel has updated.
Many thanks
Jeremy
|
|
|
|
|
The Excel object should fire the events. Make sure the withevents declaration is at the class or module level. Now click on the left dropdown above the code and select the Excel object variable then right dropdown to select the appropriate events.
I have not personally used this but the events should fire. I just don't an event you are needing. You will have to play around with them so see which one will suite your needs.
Michael
|
|
|
|
|
Heya,
I'm having a bit of a problem. I have a XML string which I can read into an XML Document but I can't figure out how to get the data into a DataSet  . The dataset is looking for a stream or xmlreader and I'm not a 100% sure on how these work...
Any help would be appreciated thanks 
The man who smiles when things go wrong has thought of someone he can blame it on.
If you tell a man there are 300 billion stars in the universe, he'll believe you. But if you tell him a bench has just been painted, he'll have to touch it to be sure.
|
|
|
|
|
This code works for me:
In my app oResultsNode is the document element of an xml document.
Private Function GetResults(ByVal oResultsNode As XmlNode) As DataSet
If Not oResultsNode Is Nothing Then
Dim dsResults As New DataSet
Dim oXmlNodeReader As New XmlNodeReader(oResultsNode)
dsResults.ReadXml(oXmlNodeReader, XmlReadMode.InferSchema)
Return dsResults
End If
End Function
Jim
|
|
|
|
|
Cool thanks, I'll give it a try
The man who smiles when things go wrong has thought of someone he can blame it on.
If you tell a man there are 300 billion stars in the universe, he'll believe you. But if you tell him a bench has just been painted, he'll have to touch it to be sure.
|
|
|
|
|
Dim vReader As New IO.StringReader(vString)
Dim vSet as new DataSet()
vSet.ReadXml(vReader)
Free your mind...
|
|
|
|
|
And here I was trying to get the XmlParserContext, XMLReader and XMLNamespaceManager to all talk to each other... (it eventually worked but my lordy it was NOT pretty)
Thanks man, I'll give it a try now 
The man who smiles when things go wrong has thought of someone he can blame it on.
If you tell a man there are 300 billion stars in the universe, he'll believe you. But if you tell him a bench has just been painted, he'll have to touch it to be sure.
|
|
|
|
|
Has anybody done any drawing of custom captions on forms, obviously by subclassing. I'd like to use C#.NET to do this. I did some stuff using other peoples subclassing controls years ago, but never got 100% of what I wanted.
Is there a way to get a Graphics object which represents the entire form surface, including its non-client area? If I could get into a chat or email swap on this subject I'd be really grateful.
If anybody knows of any .NET code that does similar things that would be really useful too.
Nursey
|
|
|
|
|
Hi
I need to know how i can disable pasting in a textbox Using Visual Basic 6.
Greetings
Peter
|
|
|
|
|
Hi,
See my reply in this [^]post
and replace WM_CONTEXTMENU with WM_PASTE
|
|
|
|
|
The constant value for WM_PASTE is 0x302.
RageInTheMachine9532
|
|
|
|
|
Hi,
I have an old VB6 solution where I access a C dll that returns a pointer to a string.
It looks like this:
dim source as long
dim sQuery as string
source = IS_DLL_SendAndReceive(tSendBuf, tSendLen, tResult, tReclen)
sQuery = Space$(1300)
RtlMoveMemory StrPtr(sQuery), source, 2600)
Query = StrConv(sQuery, vbUnicode) 'From ASCII to Unicode
How can I achieve the same result in VB.NET?
I've tried with the Marshal Object and the Encoding class but I can't get it to work 
/Jes.
|
|
|
|
|
In VB.6 you can use the generic copy memory routine such as
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(ByRef Destination As Any, ByRef Source As Any, ByVal numbytes As Long)
VB.Net rejects the Any and won't work.
You have to get more specific, such as
Public Declare Sub CM_Integer_Byte Lib "Kernel32" Alias "RtlMoveMemory" _
(ByRef Destination As Integer, ByRef Source As Byte, ByVal Length AsInteger)
Public Declare Sub CM_Short_Byte Lib "Kernel32" Alias "RtlMoveMemory" _
(ByRef Destination As Short, ByRef Source As Byte, ByVal Length As Integer)
I have a bunch of these in my applications and they work well.
RCarey
RCarey
|
|
|
|
|
Hello and good morning!
Do you know how I can show a picture in a datarow in an seperate column?
I'm using the ComponentOne TrueDBGrid!
Is there a property to fix that problem?
Thomas A
|
|
|
|
|
When you install the truedbgrid component you also have installed some tutorials and samples. Browse to tutorial 11. There you will find the secret chronicals of your desire.
Grtz,
Guus
|
|
|
|
|
Hello everyone,
I am working on a module that involves querying from a .csv file in VB6. The problem that I am facing is with the Date/Time datatype. I have to compare the dates but it is being converted by the driver into text data type when the column is retrieved due to which the comparison cannot be made very accurately.
I want to know if there is some way by means of which I can convert the datatype of the column obtained from the .csv file from text to Date/Time. Something like the toChar function in PL/SQL would be usefull.
I am facing the same data type conversion problem when I tried to import the data into an Access table and tried to query it.
Please send a response to this as early as possible.
I need it urgently.
Thanks
Sathya
|
|
|
|
|
Try using CDate() to convert text to a date data type.
Dim t As String
Dim d As Date
t = "January 23, 2004 7:45 AM"
d = CDate(t)
MsgBox d
Roger Stewart
"I Owe, I Owe, it's off to work I go..."
|
|
|
|
|
Hi friends, Can any body tell me that how can I disable some rows in the datagrid. The exact requirement is that in the datatable I have 5 rows (For example) and it has 2 columns. One of those columns is boolean. And all those rows will be disabled who has that boolean value true. Waiting for ur replies.
Shoaib Danish
|
|
|
|
|
How can i get a list of active machines using active directory services & vb.net?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
