|
Hello,
I have win2k SP4 and I need to use some com server from VC++ and VBA6. In C++ I can use sequence like this to get pointer on interface Intrfc1 from ISrvr object:
ISrvr* pSrvr = NULL;
IIntrfc1* pIntrfc1 = NULL;
::CoCreateInstance(CLSID_Srvr, NULL, CLSCTX_ALL, IID_ISrvr, (void **)&pSrvr);
pSrvr->QueryInterface(IID_ IIntrfc1, (void**)& pIntrfc1);
In VBA 6.3 (Excel) I can go to the menu tools->References, include library in to the VBA project and create the instance:
Dim Srvr As ISrvr
Set Awg = CreateObject("LIBNAME.ISrvr")
How to get Intrfc1 object from Srvr? It should be some analog of QueryInterface in VBA. Unfortunately VB6 sequence
Dim Intrfc As IIntrfc1
Set Intrfc = Srv.Object
doesn’t work in VBA6.3. What do I need to do in VBA6.3?
Thanks for help
Leon
|
|
|
|
|
Hi,
I have a byte array of data that I store in to a Queue for processing reasons. But for some strange reason half of the data I put in the Queue (exactly the last half, actually, everytime!) dequeue as nulls (0x00). The sample output below shows the problem I'm having. The first two lines are a hex dump of my "input" byte array. The next line, "CreateQueue() done" tells me that the Queue was create and has the same size as the byte array (as it should). But in my double check you can see how the last 16 bytes are all null. Anybody know what's going on? Thx, Matt
-----------------------------------------------------------------
0000: ad 00 14 00 04 02 00 00 0a 4f 70 65 6e 53 65 72
0010: 76 65 72 05 00 00 00 fd 00 00 00 00 00 00 00 00
CreateQueue() done. matt=32, queue count=32
double check:
0000: ad 00 14 00 04 02 00 00 0a 4f 70 65 6e 53 65 72
0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Here's the code that populates the Queue from the byte array:
foreach(byte b in Pdu.Payload)
{
m_qPayload.Enqueue((byte)b);
}
|
|
|
|
|
Hi,
I have some Problem Accessing dynamically created controls in VB.Net. Actually what I have to do is
I have to get different set of questiond based on the order type.
For example , OrderType A may have 5 questions . It can be a short text, Long Text or a multiple choice question and
OrderType B may have 3 questions of different Type.
I have to create different control(textbox, multi line textbox, radioButton) based on the que type.
I am adding all the controls to a table and the table to a placeholder.
I don't have any problem creating the questions and controls dynamically.
But the problem bubble up when i try to access the dynamically created control.
I am creating the control in the Page_Init
and I am trying to get the response from those dynamically created control once the user click on the submit button.
Here is the code:
PrivateSub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Init
Dim mytable AsNew Table
Dim que As DataTable
Dim qrow As DataRow
Dim row AsInteger
IfNot IsPostBack Then
Dim myorderid = CInt(1)
Dim myaccount As DNS.OrdersDB = New DNS.OrdersDB
myserviceid = myaccount.GetServiceType(myorderid)
que = New DataTable
que = DNS.QADB.GetQuestions(myserviceid).Tables(0)
row = CInt(que.Rows.Count)
Dim i AsInteger
For i = 0 To row - 1
qrow = que.Rows(i)
Dim mytype AsString = qrow("QueType")
Dim myreq AsString = qrow("QueRequired")
If mytype = "SHORT TEXT" Then
Dim myrow AsNew TableRow
Dim myrow1 AsNew TableRow
Dim mycell AsNew TableCell
Dim mycell1 AsNew TableCell
Dim lbl As Label = New Label
lbl.Text = qrow("QueName")
Dim mylblid AsString = "lbl" + CStr(qrow("Queid"))
lbl.ID = mylblid
Dim txt As TextBox = New TextBox
txt.ID = qrow("Queid").ToString()
txt.Width = Unit.Pixel(Convert.ToInt32(200).ToString())
mycell.Controls.Add(lbl)
mycell1.Controls.Add(txt)
myrow.Cells.Add(mycell)
myrow1.Cells.Add(mycell1)
mytable.Rows.Add(myrow)
mytable.Rows.Add(myrow1)
ElseIf (mytype = "LONG TEXT") Then
' as added above
End If
Next
myplace.Controls.Add(mytable)
EndIf
EndSub
Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim mytable As New Table
Dim que As DataTable
Dim qrow As DataRow
Dim row As Integer
Dim myorderid = CInt(1)
Dim myaccount As DNS.OrdersDB = New DNS.OrdersDB
myserviceid = myaccount.GetServiceType(myorderid)
que = New DataTable
que = DNS.QADB.GetQuestions(myserviceid).Tables(0)
row = CInt(que.Rows.Count)
Dim i As Integer
For i = 0 To row - 1
qrow = que.Rows(i)
Dim mytype As String = qrow("QueType")
Dim myreq As String = qrow("QueRequired")
If mytype = "SHORT TEXT" Or mytype = "LONG TEXT" Then
' Trying to get the value of the textbox
Dim c As TextBox = Page.FindControl(qrow("QueId"))
Dim myresponse As String = c.Text
If myreq = "YES" And myresponse = "" Then
lblerr.Text = qrow("QueName")
lblerr.Visible = True
Else
Dim mysystem As DNS.QADB = New DNS.QADB
Dim mystsring As String = mysystem.addQAResponse(qrow("QueId"), myresponse)
End If
End If
Next
End Sub
It's really very urgent. Please someone help me with this. Any Help is greatly appreciated
Thanks
|
|
|
|
|
ASP.NET questions would be better handled in the ASP.NET Forum. I know you code is written in VB.NET, but it's not a code issue your having. It's more of an ASP.NET technology issue.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
I have a datagrid which i have set up so that if the user clicks on the ListID it redirects to another page and passes the ListID with it.
<asp:hyperlinkcolumn datatextfield="ListID" headertext="Select" datanavigateurlfield="ListID" datanavigateurlformatstring="BBO_StartManual.aspx?ListID={0}">
I have another variable that I want to send to the next page as well which is not from the dataset. Do you know anyway i can send the other vairable? I have tried doing it inline but it just sends the variable as the code i have written.
Am fairly new and so not sure if this is the best way to do it. If this doesn't make sense let me know and i will try to explain.
Cheers,
V
|
|
|
|
|
Sorry forgot to click the check box - here is code which should have been above
<asp:hyperlinkcolumn DataTextField="ListID" HeaderText ="Select" DataNavigateUrlField="ListID" DataNavigateUrlFormatString="BBO_StartManual.aspx?ListID={0}"></asp:hyperlinkcolumn>
Cheers,
V
|
|
|
|
|
Your question would be much better answered in the ASP.NET Forum.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello,
I have win2k SP4 and I need to use some com server from VC++ and VBA6. In C++ I can use sequence like this to get pointer on interface Intrfc1 from ISrvr object:
ISrvr* pSrvr = NULL;
IIntrfc1* pIntrfc1 = NULL;
::CoCreateInstance(CLSID_Srvr,
NULL, CLSCTX_ALL,
IID_ISrvr,
(void **)&pSrvr);
pSrv->QueryInterface(IID_ IIntrfc1, (void**)& pIntrfc1);
What do I need to do in VBA 6.3 to get the same result?
|
|
|
|
|
There are a couple of ways to do it...
The simplest is to use CreateObject() function specifying the ProgID of the component.
The other way is to set a Reference to the object (in Word VBA, go to tools-> References), then declare yourself a variable of that type - this is the early bound version of the late bound Creat object....
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Hi all,
I draw a rectangle. Now I want, that rectangle changes the color, when mouse over it.
I want to have an event when mouse is over rectangle, and NOT track all mouse moves.
Is it possible? I just can't find a good way to do it?
Thanks a lot,
Boni
|
|
|
|
|
Sure, but you will have to track the mouse movement, if you think about it, if you didn't track the mouse movement it wouldn't be very effective. Assuming your class has a Rectangle object (i.e., rect in the example), within your MouseMove eventhandler you could say:
If rect.Contains(Cursor.Position) Then
'change your color here, you are inside the rectangle
End If
- Nick Parker
My Blog | My Articles
|
|
|
|
|
Hi Nick,
thank you so much for the answer. But can't windows notify me with an event, when the mouse is over my rectangle? (I could imagine to register the rectangles "contain"-method somewhere(?)) I fear, that if track mouse for all of my 1000 objects (not only rectangles but even more complicated figures) for each move this will slow down the PC very much.
Thanks for your time,
boni
|
|
|
|
|
I’m about ready to complete my first program, thanks to a lot of you and your help!
I have no idea how to create an installation program though. I want to create an installation program that will:
1-check for certain directories and create them if they are not available
2-install the latest version of the dotnet framework
3-and, of course, install my application.
Can anybody offer any good resources or suggestions?
Thanks
Brad
|
|
|
|
|
To create installation programs, we need to add Setup or Web Setup projects to the solution and manage all the things like directories etc on the target machine.
You will find lot of information on deployment on MSDN
Bhaskara
|
|
|
|
|
You can use install shield to package your project and make a setup file. Read the help file for more help, or run its wizard two or three time for test it.
Roath Kanel
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Thanks for your suggestions. I’ll check them out.
Brad
|
|
|
|
|
I found a great installation program called GP-Install[^].
I’m sure that this application lacks a lot of the functionality that you get from Install Shield but it worked perfect for my needs and, best of all, it's free.
Thanks
Brad
|
|
|
|
|
Can you explain me why do we need Optional arguments?And what are ParamArray Arguments?
|
|
|
|
|
You will use optional parameters and paramarray when you want to create a method which takes 'n' number of arguments
for more into refer MSDN
Bhaskara
|
|
|
|
|
What is the difference between ByRef and ByVal.Please answer me as clearly a spossible cause Im a beginner and I want to deeply understand the cases when we use the one and the other.Thank you.
|
|
|
|
|
dear
ByRef thats mean the parameter take a vlaue in method and after the method end run, the value still there and if you call the method another one the last value is the initial value to the method.
but ByVal that means the value discared its value after the run end and take the standard initial value when you call the method a gain
regards
Palestine Guy
|
|
|
|
|
My first post to the code project... I am developing an application that will run on a Windows CE device using the Compact Framework provided with VB.NET.
I have developed a class that inherits from PropertyDescriptor. When I call the PropertyDescriptor constructor from my inherited class and provide an existing PropertyDescriptor object I get "An unhandled exception of type 'System.NullReferenceException' occurred in System.dll".
Has anyone else seen this problem? Suggestions?
Thanks a lot!
Kurtis
|
|
|
|
|
Well, for one, this question really belongs in the Embedded/Mobile forum. Second, without seeing your code where the problem occurs, it's impossible to tell you what your doing wrong.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
is one better then the other?
i like select case better then if....then...elseif...else...end if
but im not sure really what im missing out on if anything by not using the if statment
thank
foolish
|
|
|
|
|
Switch/Cases accept only primitive data types, such as byte, short, char, int.
If you are checking for a string, a case becomes much more complicated to use.
It is better to use a Switch/Case when you are dealing with options, where you can associate each option with a Letter or Number.
If statements should be used when more complex comparisons are made, and can be grouped using the AND/OR keywords.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
