Skip to main content

AccessTr.neT M.


Yazar: accessman
07/01/2020, 17:17
xxxxxxxxxxxxxx
Yazar: accessman
06/01/2020, 18:01
Yorum Yok
Public Function GetHexColor(strHex As String) As Long
    'converts Hex string to long number, for colors
    'the leading # is optional

    'example usage
    'Me.iSupplier.BackColor = HexColor("FCA951")
    'Me.iSupplier.BackColor = HexColor("#FCA951")

    'the reason for this function is to programmatically use the
    'Hex colors generated by the color picker.
    'The trick is, you need to reverse the first and last hex of the
    'R G B combination and convert to Long
    'so that if the color picker gives you this color #FCA951
    'to set this in code, we need to return CLng(&H51A9FC)
   
    Dim strColor As String
    Dim strR As String
    Dim strG As String
    Dim strB As String
   
    'strip the leading # if it exists
    If Left(strHex, 1) = "#" Then
        strHex = Right(strHex, Len(strHex) - 1)
    End If
   
    'reverse the first two and last two hex numbers of the R G B values
    strR = Left(strHex, 2)
    strG = Mid(strHex, 3, 2)
    strB = Right(strHex, 2)
    strColor = strB & strG & strR
    GetHexColor = CLng("&H" & strColor)
End Function
Yazar: adnan
02/01/2020, 22:44
Merhaba,

Bir arkadaşımın ihtiyacı için çeşitli programlardan faydalanarak ve takıldığım yerlerde soru sorarak yapmış olduğum basit bir apartman/site programıdır. Çok daha iyi alternatifi bu sitede ve İnternet var ama, belki ihtiyacı olan arkadaşların işine yarar düşüncesiyle ekte sunuyorum.
Saygılarımla
.rar Apartman Yönetim.rar (Dosya Boyutu: 582,32 KB | İndirme Sayısı: 76)
Yazar: accessman
02/01/2020, 10:36
Yorum Yok
Alıntı:
http://www.utteraccess.com/forum/x-y-mou...23895.html


In a Module:
******************************************

Visual Basic Code
Option Compare Database
Option Explicit
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Function GetX() As Long
Dim n As POINTAPI
GetCursorPos n
GetX = n.X
End Function
Public Function GetY() As Long
Dim n As POINTAPI
GetCursorPos n
GetY = n.Y
End Function


******************************************
Then, this in the form's code:
*****************************************


Visual Basic Code
Private Sub ImageFrame_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.txtMouseX = X / 15
Me.txtMouseY = Y / 15
End Sub
Private Sub ImageFrame_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.txtMouseX2 = X / 15
Me.txtMouseY2 = Y / 15
End Sub


******************************************

Hoşgeldin, Ziyaretçi

Sitemizden yararlanabilmek için Kayıt olmalısınız.

Forum İstatistikleri

Toplam Üyeler: 107.992
Son Üye: kadir05
Toplam Konular: 20.871
Toplam Yorumlar: 151.893

Kimler Çevrimiçi

Toplam: 106 kullanıcı aktif AhrefsBot, Applebot, Bing Bot, CommonCrawl, Google Bot, Mediapartners, Msn Bot, SemrushBot, Sogou, YandexBot, YandexVideo, fast, Anclift, berduş, feraz, fztkurt, Matbign, Sinant59
6 Kayıtlı
» 88 Ziyaretçi

Son Aktiviteler

Diğer Excel Dosyasından D...

Son Yorum: accessman 1 saat önce
Yorumlar: 0 Okunma: 11

Soru Mesaj İle İlgili.

Son Yorum: feraz 9 saat önce
Yorumlar: 15 Okunma: 91

Access Tablo Adlarını Bul...

Son Yorum: feraz 9 saat önce
Yorumlar: 14 Okunma: 171

Modüldeki Kodu Çalıştırma...

Son Yorum: feraz 10 saat önce
Yorumlar: 4 Okunma: 34

Wamp Server (Mysql) Kurul...

Forum: SQL
Son Yorum: accessman Dün, 19:59
Yorumlar: 27 Okunma: 32.070

Formda Form Gösterme Ve T...

Son Yorum: accessman Dün, 19:10
Yorumlar: 9 Okunma: 171