1. 基本操作 (1) 略 (2) 程序代码如下: Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path & "\图片.jpg") End Sub Private Sub Command2_Click() Image1.Picture = LoadPicture("") End Sub
能在RichEdit上插入图片单元! 2005-03-04 LiChengbin Added: Insert bitmap or gif into RichEdit controls from source file. 2005-01-31 LiChengbin Usage: Insert bitmap into RichEdit controls by IRichEditOle interface and implementation of IDataObject interface. Ex
播放本地多种格式的图片,并保存图片 if SaveDialog1.Execute then with TLinearBitmap.Create do try Assign(Image1.Picture.Bitmap); // To compress JPEG2000 files to 5% of raw bitmap size, set // ImageDLLLoader.Default.CompOptions:='rate=0.05'; SaveToFile(SaveDialog1.File
用VB做程序赌大小 Dim a, b, c As Integer Private Sub Command1_Click() Timer1.Enabled = True If Timer1.Enabled = True Then WindowsMediaPlayer1.URL = "C:\Documents and Settings\Administrator\桌面\终极色子\Media\1683.mp3" End If End Sub Private Sub Command2_Click()
vb时钟的应用实例 源代码 Private Sub Timer1_Timer() Label1.Caption = Time i = (i + 1) Mod 6 filename = App.Path & "\" & i & ".gif" Image1.Picture = LoadPicture(filename) End Sub
elphi 生成二维码函数 procedure Generate2DCode(AStr: string; ASize: Integer; ABmp: TBitmap); var s : TByteArray; m : TByteArray; i, j: Integer; w, h : integer; cc: Integer; begin if not Assigned(ABmp) then Exit; SetLength(s, Length(AStr)); for i := 1 to Len
VB电子相册 电子相册 1、数据库连接 Public conn As ADODB.Connection Public Sub conDB() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App.Path & "\data\pic.mdb" conn.Open End Sub 2、登录模块 Dim loginTimes As
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _ Alias "capCreateCaptureWindowA" ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long,