|
How can i generate a tlb file from a dll file?
|
|
|
|
|
I have seen different versions of browsers coded in VB, nevertheless even those called COMPLETE or FULL VB Browser won't be able to edit an Office document when open locally.
Some of them would have the ability to open any type of document locally and even display it on the browser but none would display the necessary editing toolbars as Internet Explorer does when opening any Office type document(an icon called Tools can be clicked and the necessary toolbar would appear).
HOW CAN THIS BE DONE?
|
|
|
|
|
Hola, Alguno de ustedes sabe como tener una comunicación con los puertos LPT y COM desde VB?
Necesito controlar un dispositivo que se puede conectar en cualquier puerto.
De antemano agradezco su ayuda
Fargo
|
|
|
|
|
Necesitas habilitar el módulo MSCOMM en la lista de objetos. Luego pegas el objeto en el Form y alli tienes todas las propiedades del objeto
|
|
|
|
|
Hola, Alguno de ustedes sabe como tener una comunicación con los puertos LPT y COM desde VB?
Necesito controlar un dispositivo que se puede conectar en cualquier puerto.
De antemano agradezco su ayuda
Fargo
|
|
|
|
|
Hola, Alguno de ustedes sabe como tener una comunicación con los puertos LPT y COM desde VB?
Necesito controlar un dispositivo que se puede conectar en cualquier puerto.
De antemano agradezco su ayuda
Fargo
|
|
|
|
|
Is there any way to create a aggregable object?
M.S.
|
|
|
|
|
I'm using the ReportEvent API to write a message to the Windows 2000 event log... However it is coming up with a message in the event log saying that the description for event id (1) in source (OTEmail) could not be found.
Can anyone help me?
|
|
|
|
|
Setting Document/Printer Properties with ie5 browser ocx or with html
I want to print html forms in differen sizes, orintation with the browser control.
I tried three approaches:
1. size and orientation in the .html file
example: @page { size:21.0cm 14.5cm;landscape }
but this needs CSS2 support which the internet explorer does not
-or is there another way?
2. application driven
at the moment i have a small VB sample application that works quit well
WebBrowser.Navigate (AnyUrl)
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
End Sub
except for the fact, that i have to configure the printer manually
OLECMDEXECOPT_PROMPTUSER shows the printer dialog but i would rather use
OLECMDEXECOPT_DONTPROMPTUSER and apply the settings programatically
-can i change the settings with VB or do i have to do this in C++ using COM?
-does anyone hav an example.
-i am a C++ programmer with some basic knowledge of MFC.
-but i dont know how to handle IPrint::Print with DEVMODE
3. default printer settings
i also tried to change the printer properties (start/settings/printers)
but the browser just does not use them.
may be there is somewhere a template i could use
internet explorer/ properties / general (tab) / accessibility (button) / user style sheet
-how must a stylesheet look?
-would it work like this? or are these stylesheets only for display?
---------------------------------------------------------------------------------------------------------------------------------------------
Yours Sincerely // Mit freundlichen Grüssen
Theo Portmann
_____________________________________________
Atraxis AG
CEPM
CH-8058 Zurich-Airport
Phone: +41 1 812 28 63
Telefax: +41 1 812 90 31
Telex: ZRHQGSR
E-mail: theo.portmann@atraxis.com
Greetings
Theo
|
|
|
|
|
hello can i ask how do you use/link/connect oracle8i in Vb6?
can anyone help me? pls.
|
|
|
|
|
In 16-bit days I swapped from using the VB comms control to raw API (OpenComm(), ReadComm() and WriteComm() ) because we found that the comms control was less than reliable on Pentiums as they became available. That code worked fine.
Now I'm trying to port that VB code to 32-bit. I have changed to using CreateFile(), ReadFile() and WriteFile() accordingly.
However, despite copying the CreateFile() call from a VC program that I know works, and despite getting the correct API declaration from the APILOAD program, CreateFile() is not working. It returns -1 as the handle. I called GetLastError() immediately after this, but guess what... it returned 0. Very helpful.
Here is how I'm trying to do it:
hCommHandle = CreateFile(
"COM1",
GENERIC_READ + GENERIC_WRITE, ' Was GENERIC_READ|GENERIC_WRITE in VC.
0&, ' Share mode, it's a Long.
0&, ' Was null in VC - it's a Long.
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0&, ' Was null in VC - it's a Long.
)
where GENERIC_READ, GENERIC_WRITE, OPEN_EXISTING and FILE_ATTRIBUTE_NORMAL are all defined as Long constants as per the API.
Can anyone help?
I can guarantee the port is not opened elsewhere
|
|
|
|
|
lh = CreateFile("\\.\COM" & m_CommPort, GENERIC_READ Or GENERIC_WRITE, ByVal 0, ByVal 0, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
|
|
|
|
|
Hi all,
Is there any component which can make a HTTP request in VBScript? I don't need a UI, just do a GET/POST request.
Thanks in advance.
Johnny Xia
|
|
|
|
|
|
Setup is properly copying my active-x controls and axdist.exe, but it is not executing it; i.e. my controls are not being registered automatically. Everything seems to be in the right place since I can manually launch axdist.exe and the registration completes. How do I get my setup.exe to do this automatically? Here is the line from setup.lst:
File9=@AXDIST.EXE,$(WinPath),,$(Shared),8/12/01 12:15:42 AM,40448,2.0.0.0
|
|
|
|
|
How do you move an item in a VBA listbox using drag and drop?
I know how to do it in VB6, but not VBA.
|
|
|
|
|
Hi All
I've created a program that cleansup our components from the registry.
(because there are always some left overs)
And now i would like to add a feature that enables backingup the registries
entries that where deleted.
How do i do that?
I don't want to use getsettings/savesettings.
It would be greate to export it all to some reg file.
Thanks for your time.
Yoav
"Children today are tyrants. They contradict their parents, gobble their food and tyrannize their teachers." - Socrates
|
|
|
|
|
How can I know how many users are logged on a Ftp (Internet Information Server 4.0) server?
Many thanks
Carlo Cardella
|
|
|
|
|
There are performance counters that shows that...
- Anders
Money talks, but all mine ever says is "Goodbye!"
|
|
|
|
|
Hello,
I have a slight problem that I can't seem to get figure out. In MSword, I have a macro that scans for comments and saves them to a text file along with its extra info in a csv format. With this, I import it to excel and get the ref number, page number, who wrote it, etc. What I need help with is, can someone help me w/ code they already have that will have a macro that lets you choose a word file, and scans it, and places the fields into it without having to create a "middleman" file and without having to open up word?
==================================================================================================
Open "C:\Windows\Desktop\output.txt" For Output Access Write As #1
Dim Item As Integer
Item = 0
For Each Comment In ActiveDocument.Comments
With Comment
If Left(.Reference.Paragraphs(1).Style, Len("Heading ")) = "Heading " Then
Else
.Reference.GoToPrevious (wdActiveEndAdjustedPageNumber)
End If
Section = .Reference.GoToPrevious(wdGoToHeading).Paragraphs(1).Range.ListFormat.ListString
Page = .Reference.Information(wdActiveEndAdjustedPageNumber)
Author = .Author
Text = .Range.Text
Line = .Reference.Information(wdFirstCharacterLineNumber)
Doctext = .Scope.Text
'MsgBox "Section number is " & .Reference.GoToPrevious(wdGoToHeading).Paragraphs(1).Range.ListFormat.ListString & vbCr _
' & "Line number on page is " & .Reference.Information(wdFirstCharacterLineNumber) & vbCr _
' & "Page number is " & .Reference.Information(wdActiveEndAdjustedPageNumber) & vbCr _
'& "Text is '" & .Range.Text & "'"
Item = Item + 1
Print #1, Item; ","; Page; ",'Sec "; Section; "','Line "; Line; " on page','"; Author; "','"""; Doctext; """: "; Text; "'"
End With
Next
Close #1
End Sub
=================================================================================================
This code is somewhat ugly, and needs some cleanup, but if someone could show me how to at least initiate the open/import in excel, i can still use this code for the processing.
Thanks
P.S. Is there anyway to create a (a right click) menu item that will run the macro?
|
|
|
|
|
This code will pass info from word to excel
DDE Example
The following example establishes a DDE link with Microsoft Excel, places some values into cells in the first row of a new worksheet, and charts the values. First, the DDEInitiate function opens a channel to begin the DDE conversation. Then, the DDEExecute statement sends Microsoft Excel the command to open a new worksheet, and the DDERequest function asks Microsoft Excel for the name of the newly created worksheet. A new channel is opened, and the DDEPoke statement sends to Microsoft Excel the data to be charted. Finally, the DDETerminate statement terminates the DDE link with Microsoft Excel, and the DDETerminateAll statement terminates all active DDE links.
Sub ExcelDDE()
Dim intI As Integer, intChan1 As Integer
Dim strTopics As String, strResp As String, strSheetName As String
On Error Resume Next ' Set up error handling.
intChan1 = DDEInitiate("Excel", "System") ' Establish link.
If Err Then ' If error occurs, Excel may
Err = 0 ' not be running. Reset error
Shell "C:\Excel\Excel.exe", 1 ' and start spreadsheet.
If Err Then Exit Sub ' If another error, exit.
' Establish Spreadsheet link.
intChan1 = DDEInitiate("Excel", "System")
End If
' Create new worksheet.
DDEExecute intChan1, "[New(1)]" ' Get topic list, worksheet name.
strTopics = DDERequest(intChan1, "Selection")
strSheetName = Left(strTopics, InStr(1, strTopics, "!") - 1) ' Terminate DDE link.
DDETerminate intChan1 ' Establish link with new worksheet.
intChan1 = DDEInitiate("Excel", strSheetName)
For intI = 1 To 10 ' Put some values into
DDEPoke intChan1, "R1C" & intI, intI ' first row.
Next intI ' Make chart.
DDEExecute intChan1, "[Select(""R1C1:R1C10"")][New(2,2)]" ' Terminate all links.
DDETerminateAll
End Sub
|
|
|
|
|
Hey thanks a lot for the response, however it made little sense to me (I have never tried to program a vba macro before, and the initial one i started out with was made by a coworker). But anyways, when you mentioned DDE, I decided to do a little research on it and direct communication with other MS apps. I stumbled on some more automation code, and I think I got what I was looking for, but I'm still getting a few errors.
Here is the new code first of all:
Sub CommentImporter()
Dim myFile As String
Set myCell = ActiveCell
Dim myCellvalue As String
Dim Item As Integer
Dim myRow As Integer
Dim myCol As Integer
myRow = 0
Item = 0
myFile = InputBox("Give the path of the file desired to be scanned")
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open _
(myFile)
WordApp.Visible = False
For Each Comment In WordDoc.Comments
myCol = 0
With Comment
If Left(.Reference.Paragraphs(1).Style, Len("Heading ")) = "Heading " Then
Else
.Reference.GoToPrevious (wdActiveEndAdjustedPageNumber)
End If
Item = Item + 1
myCell.Offset(myRow, myCol).Value = Item
myCol = myCol + 1
'Page = .Reference.Information(wdActiveEndAdjustedPageNumber)
myCell.Offset(myRow, myCol) = Page
myCol = myCol + 1
'Section = .Reference.GoToPrevious(wdGoToHeading).Paragraphs(1).Range.ListFormat.ListString
myCell.Offset(myRow, myCol) = Section
myCol = myCol + 1
'Line = .Reference.Information(wdFirstCharacterLineNumber)
myCell.Offset(myRow, myCol) = Line
myCol = myCol + 1
Author = .Author
myCell.Offset(myRow, myCol) = Author
myCol = myCol + 1
Doctext = .Scope.Text
Doctext = Replace$(Doctext, Chr(13), Chr(10))
Text = .Range.Text
myCell.Offset(myRow, myCol) = Doctext + " : " + Text
myCol = myCol + 1
myRow = myRow + 1
End With
Next
WordApp.Quit SaveChanges:=wdDoNOtSaveCanges
Set WordApp = Nothing
End Sub
As you may have noticed, i have commented out a couple of things in the loop. This is because i keep getting value out of range errors when i run them. That seems to be my only real problem with the code for right now, but i have one more issue that isn't really open now, but will be when i get this working is: Excel cells can only have so many characters, if my comment/text from the document is too long, how can I tell it to make a new cell right underneath it? I think I have to be able to 'count' the characters, and if they are over the limit (which i don't know exactly) and just move it down a column, and print the rest there? If anyone has done this before, or knows an answer to any of the aforementioned problems, please help, thanks.
|
|
|
|
|
Well, stupid me, i figured out why word commands weren't working, i had to reference them in tool/references.
Moral of the story: If you are doing vba from one ms app to another, just make sure you check and see if you there is a reference to it. Even if you might not need it, i would say its better to be safe than sorry
|
|
|
|
|
I have made a Static Library (*.lib) using Visual C++.
I want to use the same static Library in a VB application.
how do i go about this...?
please can anybody help me out...
Shailesh Dixit
|
|
|
|
|
|