Visual Basic

Can we print out an AxMsChart graph directly?

26-Jul-05 4:52

saood swar wrote:
Please provide some help...

What is today? Everyone asking "Help?", but noone is saying with what...
All the standards are in the RFC's... It's up to you how you want to implement them.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

ATC26-Jul-05 4:04

ATC

26-Jul-05 4:04

I am able to use the AxMsChart in VB.net successfully, however when I try to print directly from it ... it failed!

By working around, I can only print with the screen (x,y) but it is not very good, because the users use different screen solutions. Even worse, sometimes it includes the print box message over the AxMsChart printing

*) Please do not show me in Visual Basic environment, I do not have it and when try to compile --> resulting errors!

Anyone know how to do it from VB.net?

Thanks for any help

Re: Can we print out an AxMsChart graph directly?

Dave Kreskowiak26-Jul-05 4:50

26-Jul-05 4:50

A simple search on Google for "print mschart vb.net[^]" reveals LOTS of hits. Even this[^] article here on CP.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Parameter help

erikkl200026-Jul-05 3:53

erikkl2000

26-Jul-05 3:53

I need to have access to a parameter with more than one fuction.

Here is what i have so far and i am stuck. and i am need of help.

I have tried putting the variable at the class level ;however, i am in need to know how to implement this.

Thank you for your help ahead of time.

ERIK...

Dim IDproduct As Int32 = CInt(Request.Params("IDProduct"))
'
'.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
'
'
End Sub

Protected Sub PopulateControl2()

'Fill ddlRoomsNames
'
Dim IDAttributeCategoryRooms As Int32 = CInt(Request.Params("IDAttributeCategoryRooms"))
Dim RoomNames As New ConstructionSuperCenter.Global.Global_WindowTreatment
'Get the dll
Dim ddlRoomNames As New DropDownList
'Fill
ddlRoomNames.DataSource = RoomNames.Get_Standard_Blind_Name_of_Rooms_(IDproduct, IDAttributeCategoryRooms)
ddlRoomNames.ToolTip = "Please Choose a Room"
ddlRoomNames.DataTextField = "AttributeName"
ddlRoomNames.DataValueField = "AttributeName"
ddlRoomNames.DataBind()
'
'Place Holder Rooms
'
phRooms.Controls.Add(ddlRoomNames)

End Sub
'
Protected Sub PopulateControl1()

IDproduct = (New SqlParameter("@IdProduct", IDproduct))

Dim IDAttributeCategoryColor As Int32 = CInt(Request.Params("IDAttributeCategoryColor"))
'
Dim StandardColors As New ConstructionSuperCenter.BCom.Wood_and_Alternitive_Blinds_MAIN
'Get the dll
Dim ddlStandardColor As New DropDownList
'Fill
ddlStandardColor.DataSource = StandardColors.Get_Standard_Blind_Colors_(IDproduct, IDAttributeCategoryColor)
ddlStandardColor.ToolTip = "Please Choose a Color"
ddlStandardColor.DataTextField = "AttributeName"
ddlStandardColor.DataValueField = "AttributeName"
ddlStandardColor.DataBind()
'
'Place Holder
'
phColors.Controls.Add(ddlStandardColor)
'

End Sub
End Class

Re: Parameter help

Anonymous26-Jul-05 4:01

Anonymous

26-Jul-05 4:01

Erik Lirttle wrote:
I need to have access to a parameter with more than one fuction.

Perhaps you should state which parameter you require access for and what portion of coding you are having problems with.

Re: Parameter help

erikkl200026-Jul-05 4:30

erikkl2000

26-Jul-05 4:30

I need to have access to the IDProduct parameter that is being requested from the sending page. I am tring to put it at the class level so that i can have access to it class wide, that is where i am running into the trouble.
Also is the cloning method a better way to implement this?

erik..

Re: Parameter help

Dave Kreskowiak26-Jul-05 4:46

Re: SMS Service in VB.Net

26-Jul-05 4:46

It's bad practice, but...

Dim IDproduct As Int32
'
'.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
    IDproduct = CInt(Request.Params("IDProduct"))
Catch
   ' Whatever you want here in case the parameter doesn't exist...
End Try
'Put user code to initialize the page here
'
'
End Sub

Though, your question should be posted in the ASP.NET Forum when dealing with Web Forms, regardless of the language being used.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

SMS Service in VB.Net

Member 28202626-Jul-05 0:03

Member 282026

26-Jul-05 0:03

I Want to Create SMS Service in VB.Net if Somebody helps me, its great for me.

Dave Kreskowiak26-Jul-05 4:40

about broswer and session

26-Jul-05 4:40

Help you with what? You haven't asked a question, other than "Who want's in on this?"

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

wzfztw25-Jul-05 23:49

wzfztw

25-Jul-05 23:49

there is a broswer,how to keep the same session when I great a new broswer

navnohistory

sal2125-Jul-05 23:48

25-Jul-05 23:48

hi all, i have this macro and 9118 record into sheet ABICAB. I have seen in my History link (Cronology of IE) the macro make for each record scanned a new ink!!!!!!!!!!! after onlly 6 minutes of macro run, i have 156 new link into history list acccccc..........

Is possible to not store into history link all page visited with the macro?

part of Column A and Column B
01000 03246
01005 01009
01005 02401
01005 02602
01005 02806
01005 02808
01005 03251
01005 03418
01005 04606
01005 10202
01005 11703
01005 11711
01005 13801
01005 14501
01005 14801
01005 39102
01005 40100
01005 58020
01005 58480
01005 73160
01010 01007
01010 01008
01010 01600
01010 01601
01010 01602
01010 01603
01010 01604
01010 01605
01010 01606
01010 01607
01010 01608
01010 01609
01010 01610
01010 01611
01010 01612
01010 01615
01010 02400
01010 02403
..............

Sub RICERCA_ABI_CAB()

Dim ie As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet

Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set ie = CreateObject("InternetExplorer.Application")

On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row
With ie
.Visible = True
For lngRow = 2 To lngMaxRow
.navigate "http://www.bancaroma.it/abicab/index.asp", 2
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop

If wksList.Cells(lngRow, 3).Value = "" Then

With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit

Application.StatusBar = "Processing row " &
lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count

End With
Do While Not CBool(InStrB(1, .document.URL, "?
search"))
DoEvents
Loop
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next
'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(3).Cells(1).innerText)
Range("G" & lngRow) = Format(UCase(.document.all.tags
("table").Item(1).Rows(4).Cells(1).innerText), "#00000")

On Error GoTo errHandler
End If
Next lngRow
End With

errHandler:
ie.Quit
Set ie = Nothing
Exit Sub

ActiveWorkbook.Save

End Sub

Dave Kreskowiak26-Jul-05 4:39

26-Jul-05 4:39

AFAIK, no, you can't turn it off. Every link that the .Navigate() method visits is recorded in the History. You might want to navigate to the page once, then just Refresh it after that. The refresh won't show up in the History.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

sal2126-Jul-05 4:43

26-Jul-05 4:43

Tks, Dave...
But i not have knoledgnment to make your suggestion;-(
Correct, please, a part of my code.
Tks. Sal.

Dave Kreskowiak26-Jul-05 5:25

26-Jul-05 5:25

sal21 wrote:
But i not have knoledgnment to make your suggestion

By this statement, I take it that you didn't write this code?

ie.navigate "http://www.bancaroma.it/abicab/index.asp", 2
With ie
    .Visible = True
    For lngRow = 2 To lngMaxRow
        .Refresh
    Do While .busy
        DoEvents
    Loop
    Do While .ReadyState <> 4
        DoEvents
    Loop

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous26-Jul-05 7:38

Anonymous

26-Jul-05 7:38

This is my new code, is correct?. Because after the cursor go in:

.refresh

the macro go into ie.quit and and the code!?

Sub RICERCA_ABI_CAB()

Dim ie As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet

Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set ie = CreateObject("InternetExplorer.Application")

On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row
With ie
.Visible = True
For lngRow = 2 To lngMaxRow
.Refresh
.navigate "http://www.bancaroma.it/abicab/index.asp", 2
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop

If wksList.Cells(lngRow, 3).Value = "" Then

With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit

Application.StatusBar = "Processing row " & lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count

End With
Do While Not CBool(InStrB(1, .document.URL, "?Search "))
DoEvents
Loop
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next
'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(3).Cells(1).innerText)
Range("G" & lngRow) = Format(UCase(.document.all.tags("table").Item(1).Rows(4).Cells(1).innerText), "#00000")

On Error GoTo errHandler
End If
Next lngRow
End With

errHandler:
ie.Quit
Set ie = Nothing
Exit Sub

ActiveWorkbook.Save

End Sub

sal2126-Jul-05 7:41

26-Jul-05 7:41

hummmm.....

I test it with PF8 and when the cursor go on .refresh the macro go in ie. quite and exit!?!?

Dave Kreskowiak26-Jul-05 10:09

26-Jul-05 10:09

Try reading what I posted again and compare it to what your looking at, because you didn't get it right.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

sal2126-Jul-05 22:43

26-Jul-05 22:43

no work, same prob.... after .refresh the macro go in ie.quite and exit????

I don't think this will work, because you submit data within the loop, and this takes you to another web page.

this is my last code:
Sub RICERCA_ABI_CAB()
'HANS
Dim IE As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet

Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set IE = CreateObject("InternetExplorer.Application")

On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row

'With IE
IE.Visible = True
'For lngRow = 2 To lngMaxRow

IE.Navigate "http://www.bancaroma.it/abicab/index.asp", 2
With IE
.Visible = True
For lngRow = 2 To lngMaxRow
.REFRESH
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop

'.Navigate2 "http://www.bancaroma.it/abicab/index.asp"

'Do While .busy
' DoEvents
'Loop
'Do While .ReadyState <> 4
' DoEvents
'Loop

If wksList.Cells(lngRow, 3).Value = "" Then

With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit

Application.StatusBar = "Processing row " & lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count

End With

Do While Not CBool(InStrB(1, .document.URL, "?search"))

DoEvents
Loop

Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next

'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(3).Cells(1).innerText)
Range("G" & lngRow) = Format(UCase(.document.all.tags("table").Item(1).Rows(4).Cells(1).innerText), "#00000")

If Range("C" & lngRow) > 0 Then
Range("H" & lngRow) = "OK"
End If

On Error GoTo errHandler
End If
Next lngRow
End With

errHandler:
IE.Quit
Set IE = Nothing

Exit Sub

ActiveWorkbook.Save

End Sub

Dave Kreskowiak27-Jul-05 1:19

Re: PageSetupDialog Control

27-Jul-05 1:19

OK. I see what you're doing with this. I thought you were building a web page and reloading it after adding some data to it. You're not. You're querying this page for data from a worksheet.

Back out the changes I said to make. They are not going to help you. You're not going to get around this problem. No matter what you do, your Navigate method is going to log every page to the History.

The only solution I can think of is to delete that site from the History when your done. This is impossible in VBScript. I don't know about doing it in VBA in Excel...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

PageSetupDialog Control

rushing25-Jul-05 22:59

rushing

25-Jul-05 22:59

After setting from Portait to Landscape,the value of PageSetting.PaperSize do not changes as you wish.
The width is still less than height.
Is this a bug of vs.net 2005 beta 2 ?

Dave Kreskowiak26-Jul-05 4:35

Programmatically Converting Paradox to Access Tables

26-Jul-05 4:35

No, it's not. The PaperSize doesn't change when you change the orientation. But the

<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemDrawingPrintingPageSettingsPropertiesTopic.asp?frame=true" rel="nofollow">PageSettings.Bounds</a>[<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemDrawingPrintingPageSettingsPropertiesTopic.asp?frame=true" target="_blank" rel="nofollow" title="New Window">^</a>]

property does take the orientation into account.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

JJRW25-Jul-05 22:57

JJRW

25-Jul-05 22:57

I have no idea on how can I convert Paradox Tables to MS Access Tables. The situation is this: the time-tracking device (connected to a PC) will record every attendance in paradox tables. The PC of the device is connected to the PC of the HR Personnel, so everytime they need the records for calculation, with the click of a button in the HR information system, attendance records are all retrieve from paradox tables of the said device and shown visually on the screen of HR's PC. I'm not so sure if there happened a conversion from paradox of the device to MS Access of System used by HR. How could that be possible?

Re: Programmatically Converting Paradox to Access Tables

Dave Kreskowiak26-Jul-05 4:31