shahryari
شنبه 27 خرداد 1391, 10:48 صبح
با سلام خدمت دوستان
بنده با استفاده از این کد این کار رو انجام میدم:
--------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c As String
c = Application.StartupPath + "\fonts\tahoma.ttf"
a = Environment.GetEnvironmentVariable("windir").ToString
b = "\Fonts"
If IO.File.Exists(c) = True Then
IO.File.Copy(c, a + b+"\tahoma.ttf",true)
Else
MsgBox("يافت نشد", MsgBoxStyle.Critical, "خطا")
End If
End Sub
کپی فونت در پوشه فونت بدرستی انجام میشود.
اما.............
يك مشكل كوچك دارد
تا زماني كه سيستم ريستارت نشود و يا پوشه فونت يكبار باز و بسته نشود، ويندوز ، فونت تازه نصب (كپي) شده را نميشناسد
سوال:
براي حل اين مشكل چه پيشنهادي داريد؟
آيا در وي بي كدي هست بتواند يك پوشه را باز و بسته كند و يا ريست كند و امثالهم :متفکر:
بنده با استفاده از این کد این کار رو انجام میدم:
--------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c As String
c = Application.StartupPath + "\fonts\tahoma.ttf"
a = Environment.GetEnvironmentVariable("windir").ToString
b = "\Fonts"
If IO.File.Exists(c) = True Then
IO.File.Copy(c, a + b+"\tahoma.ttf",true)
Else
MsgBox("يافت نشد", MsgBoxStyle.Critical, "خطا")
End If
End Sub
کپی فونت در پوشه فونت بدرستی انجام میشود.
اما.............
يك مشكل كوچك دارد
تا زماني كه سيستم ريستارت نشود و يا پوشه فونت يكبار باز و بسته نشود، ويندوز ، فونت تازه نصب (كپي) شده را نميشناسد
سوال:
براي حل اين مشكل چه پيشنهادي داريد؟
آيا در وي بي كدي هست بتواند يك پوشه را باز و بسته كند و يا ريست كند و امثالهم :متفکر: