Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'các chương trình mẫu .net part 3', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 186 Coding Techniques Thủ tục này xử lý sự kiện Doubleclick trên Images ListView. Nhấp dúp chuột vào một hình ảnh sẽ mở form frmlmageViewer yêu cầu hình ảnh là một Stream từ Web server và hiển thị nó trong một PictureBox. Private Sub lvlmages_DoubleClick ByVal sender As System.Object ByVai e As System.EventArgs Handles Ivwlmages.DoubleClick í Đặt tất cả code trong thủ tục kiểm tra hợp lệ để bảo đảm người sử dụng không thay đổi địa chỉ thành một dịa chỉ sai trước khi nhấp đúp chuột If UrllsValidO Then Dim strlmgSrc As string lvwlmages.Selectedltems O .Text ShowStatuslndicators Connectíng to Web page to retrieve the _ selected image. Please stand by. If IsNothing frmlmageViewer Then . i . frmlmageViewer New frmlmageViewerO End If Nếu đường dẫn image được chọn không phải là một dịa chỉ đẩy đỗ làm cho nó đúng và hiển thị hình ảnh trên form Imageviewer. If Microsoft.VisualBasic.Left strlmgSrc 7 http Then strlmgSrc MakeRelativeUrlAbsolute strlmgSrc End If . frmlmageViewer.Show strlmgSrc HideStatusIndicatorsO End If End Sub Xử lý sự kiện Doubleclick cho Links Listview. Nhấp đúp vào một liên kết sẽ mở trình duyệt Internet Explorer và hiển thị trang được yêu cầu. Private Sub lvLinks_DoubleClick ByVal sender As System.Object ByVai e As System.EventArgs Handles IvwLinks.DoubleClick If UrllsValidQ Then Dim strClickedUrl As string lvwLinks.Selectedltems O .Text Coding Teeh.niqi.ivH - 187 ShowStatuslndicators Starting Internet Explorer and connecting to the selected Web page. Please stand by. Xáy dựng lại đường dẫn nếu chưa đẩy đủ và mở nó trên IE If Microsoft.VisualBasÌc.Left strClickedUrl 7 http Then strClickedUri MakeRelativellrlAbSolute strClickedUrl End If Process.Start I Explore.exe strClickedUrl H ideStatus I ndicators 0 End If End Sub Xử lý sự kiện CheckedChanged cho các control RadioButton trên tab Screen Scrape . Các control ListView được hoán chuyển dựa trên option nào được chọn. Private Sub RadioButtons_CheckedChanged ByVal sender As Object ByVai e As .
