sadece webbrowser görünmesi

[acar6783]

Birçok kod denedim fakat olmadı;
Sadece webbrowserı gösterebileceğim bir kod var mıdır?
Yani başka deyişle ekranda sadece loading gif oynatmak istiyorum.

 

[Murat OSMA]

Excel Arşivimde bu tarz örnekler mevcut.
Ek'teki dosyayı inceleyebilirsiniz.​

 

[acar6783]

Benim istediğim gibi yapamaz mıyız?
Birkaç kod denedim fakat sadece X yı kaldırıyor.

Bu kodlara ne eklersem sadece loading gifi görebiliriz?

Private Sub UserForm_Initialize()
     Me.yuklen.StatusBar = False
 Me.yuklen.Navigate2 ThisWorkbook.Path & "\loading.gif"
    
End Sub

Private Sub yuklen_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Me.yuklen.Document.Body.Scroll = "no"
End Sub

 

[Murat OSMA]

Daha iyi birkaç örnek verdim aslında ama beğenmediyseniz dosyanızı gönderin bakayım.​

 

[acar6783]

Örnek dosyam ekte...

 

[acar6783]

Sorunumu bir şekilde aştım fakat şimdi de şöyle bir sıkıntım var;

bir formdan buton ile farklı bir formu açacağım ve o form açılırken bekleyiniz.gif gösterilecek.
Fakat Ekteki hatayı alıyorum

 

[Murat OSMA]

Başlıksız UserForm işinizi görecektir.

[FONT="Trebuchet MS"][SIZE="2"]Option Explicit

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000

Dim FormX As Double, FormY As Double

Private Sub UserForm_Initialize()
    Dim lngWindow As Long, lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
    Me.yuklen.StatusBar = False
    Me.yuklen.Navigate2 ThisWorkbook.Path & "\loading.gif"
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        FormX = X
        FormY = Y
    End If
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Me.Left = Me.Left + (X - FormX)
        Me.Top = Me.Top + (Y - FormY)
    End If
End Sub

Private Sub yuklen_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Me.yuklen.Document.Body.Scroll = "no"
End Sub[/SIZE][/FONT]

 

[acar6783]

Murat bey teşekkürler.
Fakat farklı bir problemim oluştu.

Bir userform açıkken farklı bir uyarı userformu çıkıyor.Evet-hayır butonları ile,
Evet sonucunda farklı bir userform açılıyor ve bu userform açılırken ise loading gifi oynatmam gerekiyor.
Burada hata alıyorum

 

[Murat OSMA]

Gerçek dosyanızı yollar mısınız?​

 

[Murat OSMA]

Üyenin özel dosyası olduğundan özelden konu çözülmüştür.​