Popular Threads

dll was loaded but dll register server entry point cannot be found. The file cannot be registered.

Thu, 17 Sep 2009 09:01:15 Z

dll was loaded but dll register server entry point cannot be found. The file cannot be registered.

The above message is the error message which I get. I am using the command "regsvr32" in the command prompt followed by the path in quotes where my dll file is copied to. I suppose those are the only steps required to registering?

If there is anything else that I have missed to get such a message, do give me your feedback on the same.

Regards

Purush

purush_kamal@yahoo.co.in

Online Video Downloader

Sat, 05 Sep 2009 14:41:52 Z

Hello I am make Online Video downloader so i Chose www.Youtube.com Video download But i get some error Please Helpme to Complete this Process
(Youtube is the Basicaly Online Video Website who Containg FLV file Video)
For starting Process we need Two Richtextboxs , One Textbox , Three Buttons , one Progressbar ,
one webbrowser and Three Labels
look:

Imports System.net
Public Class Form1
      Private WithEvents download As WebClient
    Private Sub get_link()  


        Dim i As Integer
        Dim l As Integer
        Dim string1 As Integer
        i = Me.rtb.Find("wath_fullscreen")
        l = Me.rtb.Find("&title")
        Me.rtb.Select(i, Me.rtb.Text.Length)
        Me.txturl.Text = Me.rtb.SelectedText.ToString
        Me.rtb.Select(l, Me.rtb.Text.Length)
        string1 = Me.rtb.SelectedText.ToString
        Me.txturl.Text = Me.txturl.Text.Replace(string1, "&")
        Me.txturl.Text = Me.txturl.Text.Insert(0, "http://www.youtube.com/get_video?")

    End Sub

    Private Sub done()
        Me.lbl_bytes.text = "0 Bytes of 0 Bytes"
       Me.lbl_title.text = ""
        Me.lbl_percent.text = "0 %"
        Me.ProgressBar1.Value = 0
        Me.btn_cancel.Enabled = False
        Me.btn_download.enabled = False
        Me.btn_val.Enabled = True
 
    End Sub

    Private Sub btn_val_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_val.Click
   
        If Not Me.textbox1.Text = "" Then
            If Me.textbox1.Text.Contains("http://www.youtube.com/watch?v") Then
                Me.WebBrowser1.Navigate(Me.textbox1.Text)
          Else
                Form2.Show()
                                   End If
        Else
            MsgBox("")
        End If
    End Sub

    Private Sub download_DownloadDataCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadDataCompletedEventArgs) Handles download.DownloadDataCompleted        done()
        MsgBox("Video Download Is Succesful", MsgBoxStyle.OkOnly)
    End Sub

    Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
        Me.lbl_percent.Text = e.ProgressPercentage
        Me.lbl_bytes.Text = e.BytesReceived & "bytes of" & e.TotalBytesToReceive
    End Sub
    Private Sub btn_download_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_download.Click        
        get_link()
        Dim save As New SaveFileDialog
        save.Title = "Choose where to save the video"
        save.Filter = "Flv|*.flv;*.flv"
        save.FileName = Me.lbl_title.Text & ".flv"
        save.ShowDialog()
        Me.btn_cancel.Enabled = True
        Me.btn_val.Enabled = False
        Me.btn_download.Enabled = False
        download = New WebClient
        Dim url = txturl.Text
        Dim wheretosave = save.FileName
        Me.ProgressBar1.Value = 0
        Me.ProgressBar1.Maximum = 100
        Try
            download.DownloadFileAsync(New Uri(url), (wheretosave))
        Catch ex As Exception
            MsgBox("Cannot download video, Please check your Video link")
      End Try
    End Sub

    Private Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
        download.CancelAsync()
        MsgBox("Cancel Download", MsgBoxStyle.OkOnly, "Cancel")
        done()
    End Sub

    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated

        If Me.WebBrowser1.Url.ToString.Contains("http://www.youtube.com/watch?v") Then
            Me.lbl_title.Text = Me.WebBrowser1.DocumentTitle
            Me.lbl_title.Text = Me.lbl_title.Text.Replace("YouTube - ", "")
            Me.rtb.Text = Me.WebBrowser1.DocumentText
            Me.WebBrowser1.Navigate("about:blank")
            Me.btn_download.Enabled = True
        End If    
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.Opacity = 0
        Timer1.Interval = TotalDelayInMS / StepInMS
        Timer1.Enabled = True
        Me.btn_download.Enabled = False
        Me.lbl_title.Text = ""
        Me.btn_cancel.Enabled = False
    End Sub
End Class

Multiple User Controls appear in the toolbox

Fri, 11 Sep 2009 13:29:49 Z

Hi, iam using visual studio 2008 and when iam using VB.net and i try to add a user control to the toolbox which is fine. i can use this control and nothing is wrong with it but when i build or re-build the project, it creates multiple instences of the same control in the toolbox(basicly the controls are cloning themselfs) after a while i might have 15 usercontrols in the toolbox and it becomes cluttered with copys.Anyone heard of this before?

change line color of powerpack datarepeater which comes after every record

Fri, 04 Sep 2009 10:41:15 Z

Hi,

I am a little frustrated by this simple thing.. In powerpack datarepeater how to change color of the line which appears after every record. Kindly look at the attached image for reference.

http://i27.tinypic.com/ng4w9g.png

Can anyone help me out ?

Thanks

problem with printpreview

Mon, 14 Sep 2009 11:27:26 Z

Hi, I'm trying to print address labels using a Dymo LabelWriter 400 printer. I've managed to print a lable using 'Word' and Notepad (so happy the printer is installed & working) and from VB (using PrintForm) it outputs a lable but no text on it.
So I'm trying to use 'printpreview' to check whats being printed - it seems to work ok if I have a A4 laser printer selected as the default printer but not if I have a Dymo LabelWriter 400 as the default.
Any suggestions please?
Kevin