Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Trang 2 của 2 Đầu tiênĐầu tiên 12
Kết quả 11 đến 20 của 20
  1. #11
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

    Mình làm được rồi.Cám ơn mọi người nhé !

    Mà hoá ra bạn LoveBlue là Noname à,mình vẫn lang thang trên blog của bạn suốt,tìm được khối thứ bổ ích.
    Nhân tiện bạn sửa luôn 2 dòng này nè :
    Trên form, bạn vẽ 1 textbox đặt tên là txtpicture => TxtPic

    Và cả 2 cái TxtPic và image phải có control Sourse và giống nhau.
    Chúc bạn ngày càng hoàn thiện blog.

  2. #12
    Ngày tham gia
    Dec 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

    Bạn LoveBlue ơi. Code này là của bạn,mình dùng và phát hiện ra có 2 vấn đề.
    1.Nếu mình mở hộp thoại và chon ảnh xong cho 1 bản ghi thì tự nhiên tất cả đối tượng ảnh Image của các bản ghi khác(bản ghi chưa có ảnh ) cũng sẽ hiện đúng ảnh đó.
    Dùng Requery không tác dụng,phải tắt Form đi mở lại mới hết.Mặc dù nó không ảnh hưởng đến việc chọn ảnh của các bản ghi khác nhưng trông nó không Pro (Như kiểu ảnh Ma ấy,tắt Form mới hết )
    2.Nếu 1 bản ghi đã có ảnh,mà vô tình người dùng lại nhấn nút cmdInsertPic thêm lần nữa nhưng ko chọn ảnh mà nhấn Cancel thì ảnh đã lưu trước đó cũng sẽ mất đi.

    Mọi người cho mình cách giải quyết với nhé
    Thank everyone !

  3. #13
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!




    Trích dẫn Gửi bởi glasseggs
    Bạn LoveBlue ơi. Code này là của bạn,mình dùng và phát hiện ra có 2 vấn đề.
    1.Nếu mình mở hộp thoại và chon ảnh xong cho 1 bản ghi thì tự nhiên tất cả đối tượng ảnh Image của các bản ghi khác(bản ghi chưa có ảnh ) cũng sẽ hiện đúng ảnh đó.
    Dùng Requery không tác dụng,phải tắt Form đi mở lại mới hết.Mặc dù nó không ảnh hưởng đến việc chọn ảnh của các bản ghi khác nhưng trông nó không Pro (Như kiểu ảnh Ma ấy,tắt Form mới hết )
    2.Nếu 1 bản ghi đã có ảnh,mà vô tình người dùng lại nhấn nút cmdInsertPic thêm lần nữa nhưng ko chọn ảnh mà nhấn Cancel thì ảnh đã lưu trước đó cũng sẽ mất đi.

    Mọi người cho mình cách giải quyết với nhé
    Thank everyone !
    1/ Bạn chép đoạn code sau vào code của form



    Mã:
    Public Function Filename() As String
        Dim st As String
        Dim fdlg As FileDialog
        Dim retnum As Long
        Set fdlg = Application.FileDialog(msoFileDialogFilePicker)
        With fdlg
            .AllowMultiSelect = False
            .Filters.Add "Picture", "*.jpg,*.bmp"
            .Title = "Select Picture File"
            retnum = .Show
            If retnum = -1 Then
                If .SelectedItems.Count = 0 Then
                    st = ""
                Else
                    st = .SelectedItems(1)
                End If
                Filename = st
            Else
                Filename = ""
            End If
        End With
        Set fdlg = Nothing
    End Function
    2/ Trong sự kiện click của Command bạn ghi như sau


    Mã:
    Private Sub Command3_Click()
        On Error Resume Next
        Me.txtPic = Filename
        Me.Image9.Picture = Me.txtPic
    End Sub
    3/ Ghi thêm cái này nữa(Cái này mới quan trọng)



    Mã:
    Private Sub Form_Current()
        If Me.txtPic <> "" Then
            Me.Image9.Picture = Me.txtPic
        Else
            Me.Image9.Picture = ""
        End If
    End Sub
    Như vậy khi duyệt tới Record nào thì trên txtPic hiển thị đường dẫn và Igame thể hiện hỉnh ảnh tương ứng

    Thân

  4. #14
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

    Mình làm được rồi .
    Vấn đề 1 mình làm như bạn Xuanthanh.
    Còn vấn đề 2 mình làm như LoveBlue nói,mọi người xem thử code có vấn đề không nhé,mình chạy thấy ngon lành :


    Mã:
    Private Sub Command181_Click()
    Dim tuan As String
    tuan = getFile("ETB TRAINING CORPORATION", "Select the Picture File", "*.jpg;*.bmp;*.png")
    If tuan <> "" Then
    Me![TxtPic] = tuan
    Me![TxtPic] = LCase(Me![TxtPic])
    Me![Image].Picture = Me!TxtPic
    End If
    End Sub

  5. #15
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

    Còn nếu làm lại toàn bộ như bạn Xuanthanh chỉ.
    Thì mình thấy thêm phần 4 / này nữa :
    4/


    Mã:
    Private Sub Command2_Click()
        On Error Resume Next
        Dim abc As String
        abc = Filename
        If abc <> "" Then
        Me.txtpic = abc
        Me.Image.Picture = Me.txtpic
        End If
    End Sub
    Hì ,mình không phải dân lập trình,có gì sai bảo mình với nhé.
    Cám ơn tất cả mọi người nhé .

  6. #16
    Ngày tham gia
    Aug 2015
    Bài viết
    5
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!




    Trích dẫn Gửi bởi glasseggs
    Còn nếu làm lại toàn bộ như bạn Xuanthanh chỉ.
    Thì mình thấy thêm phần 4 / này nữa :
    4/


    Mã:
    Private Sub Command2_Click()
        On Error Resume Next
        Dim abc As String
        abc = Filename
        If abc <> "" Then
        Me.txtpic = abc
        Me.Image.Picture = Me.txtpic
        End If
    End Sub
    Hì ,mình không phải dân lập trình,có gì sai bảo mình với nhé.
    Cám ơn tất cả mọi người nhé .
    Không cần phần này, bạn làm đúng như trên là được. Trong hàm Filename đã giải quyết cái vụ không chọn ảnh(nhấn Cancel) rồi

  7. #17
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!




    Trích dẫn Gửi bởi xuanthanh
    Không cần phần này, bạn làm đúng như trên là được. Trong hàm Filename đã giải quyết cái vụ không chọn ảnh(nhấn Cancel) rồi
    Không được đâu Xuanthanh ơi,mình thử rồi.Code của bạn khi Cancer vẫn bị xóa mà .Bạn thử mà xem.

  8. #18
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!




    Trích dẫn Gửi bởi glasseggs
    Không được đâu Xuanthanh ơi,mình thử rồi.Code của bạn khi Cancer vẫn bị xóa mà .Bạn thử mà xem.
    Tôi đã thử và không thấy hiện tượng gì xảy ra. Lưu ý : Bạn kiểm tra lại Source của form
    Thân

    P/S : Bạn gửi cái file của bạn lên đây hoặc gửi vào hộp mail của tôi, tôi kiểm tra giùm cho
    Mail : bachdanggiang_2006@yahoo.com

  9. #19
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

    Cám ơn bạn nhé,nhưng mình làm theo cách trên cũng được rồi mà.
    Thanks mọi người

  10. #20
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    em cũng gặp trường hợp này chưa hiểu rõ lắm ạ, mà em lại bị cái ko add command được, nó báo failed to creat visual basic ạ

 

 
Trang 2 của 2 Đầu tiênĐầu tiên 12

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •