Visual Basic

ii_noname_ii wrote:

It's not just links, it's buttons, images, often inside datagrids...

ii_noname_ii wrote:

And, without javascript? To size window, remove menu, etc..?

ii_noname_ii wrote:

The client wants a popup window correctly sized...
He also wants it to work for everyone, which is not the case atm with my javascript window.opens...

ii_noname_ii wrote:

In any case, this really seems like a missing functionality in vb.net ...

ii_noname_ii wrote:

What about those nasty crack/serial, or porn pages that manage to open popups in your face, despite your popup blocker?

eatwork wrote:

working on a quotation system

eatwork wrote:

not bound to the database

eatwork wrote:

create a crystal report, to be used as the template, without binding the report to the database, and then passing the local dataset data into the report that needs to be printed.

'declare pre-built report
Public myReport1 = New myCrystalReport 

Public Sub BuildMyReport(ByVal ds As DataSet)

myReport1.SetDataSource(ds)
myForm.myReportViewer.ReportSource = myReport1

End Sub

<br />
Private Sub Form_Load()<br />
        myReport1.SetDataSource(Me.p_dataset)<br />
        Me.CrystalReportViewer1.ReportSource = myReport1<br />
End sub<br />
also tried<br />
Private Sub Form_Load()<br />
        myReport1.SetDataSource(Me.p_dataset)<br />
        Me.CrystalReportViewer1.ReportSource = myReport1.FilePath.ToString<br />
End sub<br />

Module modMain

    Public WithEvents frm1 As Form1
    Public WithEvents frmR As frmReport

    Sub Main()
        frm1 = New Form1
        Application.Run(frm1)
    End Sub
End Module

Friend ds1 As New dsQuote

   Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

       Dim dr As DataRow = ds1.tblQuote.NewRow

       'add info to dataset
       dr.Item("name") = txtName.Text
       dr.Item("product") = txtProduct.Text
       dr.Item("quantity") = txtQuantity.Text

       ds1.tblQuote.Rows.Add(dr)

       'clear the textboxes
       txtQuantity.Clear()
       txtProduct.Clear()
       With txtName
           .Clear()
           .Focus()
       End With

   End Sub

   Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click
       frmR = New frmReport
       frmR.Show()
   End Sub

Public rptQ As Quote

  Private Sub frmReport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

      rptQ = New Quote
      rptQ.SetDataSource(frm1.ds1)
      Me.crv.ReportSource = rptQ

  End Sub

Syed Ali Raza Rizvi wrote:

Thanks to reply Kereskowiak,

Syed Ali Raza Rizvi wrote:

Actually i want that my project should work like "Trial Versions" does.