- Код: Выделить всё
LoadResData(101, "CUSTOM")
, и всё работало. Как на VB8(VB2005) работать с ресурсами?
И ещё: если я использую файл *.res, а не *.resx, то как быть?
Заранее благодарю!
LoadResData(101, "CUSTOM")
Nord777 писал(а):Выбери Project -> Add Reference... -> Microsoft.VisualBasic.Compatibility
И продолжай использовать Microsoft.VisualBasic.Compatibility.VB6.Support.LoadResData
ReDim bAudioArr(UBound(VB6.LoadResData(101, "CUSTOM")))
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Bm As Bitmap = Nothing
Bm = GetBitmapResource("myres.resx", "img1")
End Sub
Private Function GetBitmapResource(ByVal FileName As String, ByVal ResName As String) As Bitmap
Dim RsxR As New ResXResourceReader(FileName)
Dim id As IDictionaryEnumerator = RsxR.GetEnumerator()
Dim Bmp As Bitmap = Nothing
Dim d As DictionaryEntry
For Each d In RsxR
If (TypeOf d.Value Is Bitmap) And (ResName = d.Key) Then
Bmp = CType(d.Value, Bitmap)
End If
Next d
RsxR.Close()
Return Bmp
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 90