|
From www.janusys.com support forum
Saturday, July 12 2003, 02:29 PM
GridEX control does not support automatic drag. To start a drag operation you need to call the OLEDrag method and handle the OLEDrag events to perform such operations.
Note: The position of a row is taken from the position of the record in the Recordset and because you can not change that position in a Recordset you won't be able to provide such functionality if the control is bound.
Further in the thread is a sample:
We don't have samples that change the position of a row using OLE Drag & Drop. Here I'm attaching a sample project that handles the OLEStartDrag and OLESetData events when it is acting as drag source and the OLEDragDrop event for when it is acting as ole drop target. The sample was done to show how to copy rows from one instance of the application to another but with it you can get the idea of what events can be used.
I can download and send to you if you need it
|
|
|
|
|
That would be great - or post a link and will fire up the cable modem!!
Many thanks
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
hello all,
i m connecting a crystal report 8.5 thru my vb6 application and i m trying to disaply only specific records in the crystal reports.
i m pasing querry in the crystal report thru my VB applcation.
all is going well but getting one error at the statement
cr.viewreport
server has not yet bee opened
Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim crystal As CRAXDRT.Application
Dim report As CRAXDRT.report
CR.DisplayBorder = False
CR.DisplayTabs = False
CR.EnableDrillDown = False
CR.EnableRefreshButton = False
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Raj;Data Source=."
conn.Open
Set rs = New ADODB.Recordset
rs.Open "SELECT* From user_file where user_id='Raj'Order By user_id ASC", conn, adOpenStatic, adLockReadOnly
Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\myrep.rpt")
report.DiscardSavedData
report.Database.SetDataSource rs
CR.ReportSource = report
'here at this statement i m having problem getting erro msg :server has not yet been opened
CR.ViewReport
CR.Zoom 94
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Set crystal = Nothing
Set report = Nothing
End Sub
sending the code for ur refrence.
please help me if anybd can
thanks
|
|
|
|
|
If possible could someone please solve this problem of mine. I am a beginner and want to get my results in Excel format but the output which i need has to be formatted and i am not able to get that kinda format. Have already developed the application with backend in Access and need to get the data frm Access and display it in Excel. Have already incorp. Crystal reports and have put the export tab on it. but what i need is an Excel format. If anybody can do it please mail me i can send u the Excel file in the format which i want.
;P
|
|
|
|
|
I think I answered your previous post about this issue, here[^]. Please let me know if that does not address your question completely.
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
In a few months time I have to develop a DLL(s) to contain common code which our company will share across many projects.
The roll out of this DLL could be problematic, and I dont want to get into lots of discussions about 'design it first then code it' coz this is the real world and we can't afford to work like that right now. To live we have to code! hehe
Well, if I have my DLL(s) released out there and add a new function does this break binary compatibility in .NET. Does binary compatibility even exist in assemblies still? I would be happy to release DLL's in incremental stages if I know that I wont break things just by adding new functions and objects.
Any experiences and stuff would be really appreciate.
Thanks
Nursey
|
|
|
|
|
Are there any free UML tools worthy of use on small to medium projects (you decide what small to medium means)? Do they interface with VS.NET for reverse engineering?
Thanks
Nursey
|
|
|
|
|
There is ArgoUML[^], but I don't think it interfaces with .NET stuff.
|
|
|
|
|
Had a quick look, but isn't it just for Java?
Nursey
|
|
|
|
|
It is written in Java, but AFAIK the UML is the same as every UML.
|
|
|
|
|
There is a tool that has total impressed me. You can check it out on this website: http://t4-editor.tangible-engineering.com Absolutely amazing in my view, Best UML tool Integrated to VS 2008
|
|
|
|
|
I've made a simple program in VB 6.0 (In Win XP) and therefore had to use some project references (for the FSO) and some components. Now, in VB the program works, when I make an .exe file, it works in Win XP but when I copy the whole .exe file and paste it into a computer wich is running Win 98 it doens't work.. I than get the Runtime Error 430 , "Class doesn't support Automation" or something like that...
Anybody please help because I don't get this....
<<<erik>>>
|
|
|
|
|
this is probably a stupid answer, but: is the vb6 runtime dll installed on the win98 machine?
------------------------
Jordan.
III
|
|
|
|
|
Yes it is, otherwise the program would give an other error... But I think that some other references or components are not installed wich gives the error.. So... Help....
<<<eRiK>>>
|
|
|
|
|
ok... sorry bout that then.
hope someone here can help you out.
------------------------
Jordan.
III
|
|
|
|
|
can u post some of your code? or explanation of what the program is doing?
u using any ADO?
if so, go here[^] and click the 2nd item, MDAC, and download an upgrade.
------------------------
Jordan.
III
|
|
|
|
|
ADO??? I'm not using that i think... I would give you the source-code, just give me your e-mail...
<<<eRiK>>>
|
|
|
|
|
nadroj_@hotmail.com
u dont have to send the whole thing. im saying just post afew parts here, like the initialization of it, and afew other areas of implementation.
did u check that link and upgrade?
------------------------
Jordan.
III
|
|
|
|
|
I have found this code to set printer properties using Windows API:
Controlling the Printer from Word VBA[^]
which is basically a further development of Microsoft's article:
HOWTO: Set Duplex Printing for Word Automation[^]
I want to ask whether any of you guys have done or have any ideas on how to set printer stapling using the code above.
I am thinking of creating a new constant for the stapling, e.g.
Public Const DM_DUPLEX = &H1000&
Public Const DM_STAPLE = &H2000& '(added line)
and add a new variable in the DEVMODE Type:
Public Type DEVMODE
dmStaple as integer
End Type
then set the dmStaple and set it to the printer using the API, but somehow I don't think it is going to work at all.
Question:
1. Can I set printer stapling using the API mentioned in the sites above?
2. If I can, can I do it like the above? If not, can you please point me to the right direction (e.g. giving a link to SDK site / MSDN article, code snippets, etc.)
Thanks.
Edbert P.
Sydney, Australia.
|
|
|
|
|
First you need to find out if the printer supports stapling at all by calling the Api GetDeviceCaps with the index DC_STAPLE.
Public Enum PrintDeviceCapabilitiesIndexes
' ##ENUMERATION_MEMBER_DESCRIPTION DC_FIELDS Which fields of the device mode are used
DC_FIELDS = 1
' ##ENUMERATION_MEMBER_DESCRIPTION DC_PAPERS Which Printer Paper Sizes the device supports
DC_PAPERS = 2
' ##ENUMERATION_MEMBER_DESCRIPTION DC_PAPERSIZE The dimensions of the paper in 10ths of a millimeter
DC_PAPERSIZE = 3
' ##ENUMERATION_MEMBER_DESCRIPTION DC_MINEXTENT The minimum paper width and height the printer can support
DC_MINEXTENT = 4
' ##ENUMERATION_MEMBER_DESCRIPTION DC_MAXEXTENT The maximum paper width and height the printer can support
DC_MAXEXTENT = 5
' ##ENUMERATION_MEMBER_DESCRIPTION DC_BINS The standard paper bins supported by this printer
DC_BINS = 6
' ##ENUMERATION_MEMBER_DESCRIPTION DC_DUPLEX Whether the printer supports duplex printing
DC_DUPLEX = 7
DC_SIZE = 8
DC_EXTRA = 9
DC_VERSION = 10
DC_DRIVER = 11
DC_BINNAMES = 12
DC_ENUMRESOLUTIONS = 13
DC_FILEDEPENDENCIES = 14
DC_TRUETYPE = 15
DC_PAPERNAMES = 16
DC_ORIENTATION = 17
DC_COPIES = 18
DC_BINADJUST = 19
DC_EMF_COMPLIANT = 20
DC_DATATYPE_PRODUCED = 21
DC_COLLATE = 22
DC_MANUFACTURER = 23
DC_MODEL = 24
DC_PERSONALITY = 25
DC_PRINTRATE = 26
DC_PRINTRATEUNIT = 27
DC_PRINTERMEM = 28
DC_MEDIAREADY = 29
DC_STAPLE = 30
DC_PRINTRATEPPM = 31
DC_COLORDEVICE = 32
DC_NUP = 33
End Enum
Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal DeviceName As String, ByVal Portname As String, ByVal Index As PrintDeviceCapabilitiesIndexes, ByVal lpBuf As Long, pDevMode As Long) As Long
...
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
...
However the structure DEVMODE is defined by the windows header file and you cannot change it....and unfortunately it does not have a dmStaple member.
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
Thanks for that, Duncan.
Can you please give me a suggestion on what I should investigate to set the printer stapling? (API, PCL Printer Commands, PJL, etc.)
Edbert P.
Sydney, Australia.
|
|
|
|
|
I want to delete the character that is in the cursor position(the text in Textbox control in VB6). help me please.
|
|
|
|
|
more detail plz
------------------------
Jordan.
III
|
|
|
|
|
I want to delete the character that is in the Cursor position!(Current position of Blink cursor in a textbox)
|
|
|
|